OFFSET
1,1
COMMENTS
All terms are primes.
a(7) > 10^5.
MATHEMATICA
Select[ Prime[ Range[1, 100000] ], PrimeQ[ (17^# - 2^#)/15 ]& ]
PROG
(PARI) is(n)=ispseudoprime((17^n-2^n)/15) \\ Charles R Greathouse IV, Jun 06 2017
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Robert Price, Jul 29 2013
STATUS
approved