OFFSET
1,1
COMMENTS
Next term is greater than 50000 - Sam Handler (sam_5_5_5_0(AT)yahoo.com), Dec 05 2004
MATHEMATICA
Do[ If[ PrimeQ[2^n - Prime[n]], Print[n]], {n, 1, 10^5}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Nov 30 2002
EXTENSIONS
More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Dec 05 2004
STATUS
approved