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.
127, 505, 573, 619, 670, 714, 743, 844, 963
Offset: 1
Keywords
Examples
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.
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[Greater[s, 5], Print[{n, s}];ta[[u]]=n;u=u+1], {n, 1, 1000}];ta