

A096523


Solutions to A096520[x]>5, that is in neighborhood with c=2^x center and r=Ceiling[Log[2^x]] more than five[6,7,8,..?] primes occur.


14




OFFSET

1,1


LINKS

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


EXAMPLE

For the first few terms, the numbers of primes in the corresponding neighborhood of 2^(a[j]) are 6, 6, 8, 6, 6, 6, 6, 7, 6.


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[Greater[s, 5], Print[{n, s}]; ta[[u]]=n; u=u+1], {n, 1, 1000}]; ta


CROSSREFS

Cf. A096509A096521.
Sequence in context: A057814 A038646 A245867 * A299132 A142736 A152783
Adjacent sequences: A096520 A096521 A096522 * A096524 A096525 A096526


KEYWORD

nonn


AUTHOR

Labos Elemer, Jul 12 2004


STATUS

approved



