A096522 Solutions to A096520[x]=0, that is in neighborhood with c=2^x center and r=Ceiling[Log[2^x]] no prime occurs.
25, 27, 34, 35, 45, 49, 59, 62, 65, 97, 99, 103, 106, 113, 120, 139, 142, 169, 176, 181, 183, 185, 186, 208, 215, 216, 223, 227, 232, 237, 256, 259, 267, 269, 293, 298, 302, 309, 332, 333, 334, 340, 349, 358, 361, 362, 364, 371, 373, 381, 387, 403, 426, 433
Offset: 1
Keywords
Programs
-
Mathematica
{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