login
A096522
Solutions to A096520[x]=0, that is in neighborhood with c=2^x center and r=Ceiling[Log[2^x]] no prime occurs.
1
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,1
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Jul 12 2004
STATUS
approved