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,1

Links

Table of n, a(n) for n=1..54.

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

Cf. A096509-A096521.

Sequence in context: A239523 A361821 A129820 * A195351 A015734 A221617

Adjacent sequences: A096519 A096520 A096521 * A096523 A096524 A096525

Keyword

nonn

Author

Labos Elemer, Jul 12 2004

Status

approved