|
%I #5 Oct 15 2013 22:32:26
%S 25,27,34,35,45,49,59,62,65,97,99,103,106,113,120,139,142,169,176,181,
%T 183,185,186,208,215,216,223,227,232,237,256,259,267,269,293,298,302,
%U 309,332,333,334,340,349,358,361,362,364,371,373,381,387,403,426,433
%N Solutions to A096520[x]=0, that is in neighborhood with c=2^x center and r=Ceiling[Log[2^x]] no prime occurs.
%t {ta=Table[0, {1000}], u=1}; Do[s=Count[Table[PrimeQ[2^n+i], {i, -Ceiling[Log[2^n]//N], Ceiling[Log[2^n]//N]}], True];If[Equal[s, 0], Print[{n, s}];ta[[u]]=n;u=u+1], {n, 1, 1000}];ta
%Y Cf. A096509-A096521.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 12 2004
|
