|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|