OFFSET
1,1
COMMENTS
The next term (a(10)) has 100 digits. - Harvey P. Dale, Aug 31 2017
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..17
C. Pomerance, Science News reference.
MATHEMATICA
With[{c=2^11}, Select[Abs[7^Range[0, 100]-c], PrimeQ]]//Sort (* Harvey P. Dale, Aug 31 2017 *)
PROG
(PARI) g(n) = for(x=1, n, y=abs(7^x-2^11); if(ispseudoprime(y), print1(y", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Sep 23 2006
EXTENSIONS
One additional term (a(9)) from Harvey P. Dale, Aug 31 2017
STATUS
approved