OFFSET
1,2
COMMENTS
Large primes tested by Primo.
LINKS
EXAMPLE
Prime(1)=2, 2-2^0=1, not prime.
Prime(31)=127, 127-2^0 through 127-2^6 are nonprime.
MATHEMATICA
fQ[n_] := Block[{k = Floor[ Log[2, Prime[n]]], p = Prime[n]}, While[k > -1 && !PrimeQ[p - 2^k], k-- ]; If[k > 0, True, False]]; Select[ Range[ 536], !fQ[ # ] &] (* Robert G. Wilson v, Jan 24 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Lei Zhou, Jan 20 2005
EXTENSIONS
More terms from Robert G. Wilson v, Jan 24 2005
STATUS
approved