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