OFFSET
1,1
COMMENTS
All terms are primes.
a(11) > 10^5.
MATHEMATICA
Select[Prime[Range[1, 100000]], PrimeQ[(19^# + 2^#)/21]&]
PROG
(PARI) is(n)=ispseudoprime((19^n+2^n)/21) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,hard,more
AUTHOR
Robert Price, Sep 08 2013
STATUS
approved