option remember;
if n = 1 then
1;
else
for a from procname(n-1)+2 by 2 do
if not isprime(a) then
return a;
end if;
end do:
end if;
end proc:
isA091113 := proc(n)
option remember;
if modp(n, 4) = 1 and not isprime(n) then
true;
else
false;
end if;
end proc:
isA091236 := proc(n)
option remember;
if modp(n, 4) = 3 and not isprime(n) then
true;
else
false;
end if;
end proc:
ct := 0 :
n := 1 :
for i from 2 do
if isA091113(odnpr) and isA091236(prev) and isA091236(nxt) then
ct := ct+1 ;
end if;
if odnpr< 10^n and nxt >= 10^n then
print(n, ct) ;
n := n+1 ;
end if;
