OFFSET
1,2
COMMENTS
a(17) > 10^5.
MATHEMATICA
Select[Range[0, 100000], PrimeQ[9^# + 8^(# + 1)] &]
PROG
(Magma) [n: n in [0..500] | IsPrime(9^n+8^(n+1))]; // Vincenzo Librandi, Jul 12 2016
(PARI) is(n)=ispseudoprime(9^n+8^(n+1)) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Price, Jun 15 2016
STATUS
approved