OFFSET
1,1
COMMENTS
a(10) > 10^5. - Robert Price, May 04 2016
MATHEMATICA
Select[Range[15, 100000], PrimeQ[8^# - 7^(# + 1)]]
PROG
(PARI) is(n)=ispseudoprime(8^n-7^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Price, May 07 2016
STATUS
approved