OFFSET
1,1
COMMENTS
The next term has 138 digits. - Harvey P. Dale, Jun 01 2014
MATHEMATICA
Union[Select[Table[Abs[2^n-Prime[n]^2], {n, 500}], PrimeQ]] (* Harvey P. Dale, Jun 01 2014 *)
PROG
(PARI) print1("2, 5, 17, 89"); n=10; forprime(p=31, 1e4, if(isprime(t=abs(2^n++-p^2)), print1(", "t))) \\ Charles R Greathouse IV, Sep 11 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Sep 09 2011
EXTENSIONS
Terms corrected by Charles R Greathouse IV, Sep 11 2011
STATUS
approved