1,2
a(17) > 10^5.
Table of n, a(n) for n=1..16.
Select[Range[0, 100000], PrimeQ[9^# + 8^(# + 1)] &]
(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
Cf. A093765.
Sequence in context: A098510 A168541 A124264 * A271858 A189734 A221678
Adjacent sequences: A274236 A274237 A274238 * A274240 A274241 A274242
nonn,more
Robert Price, Jun 15 2016
approved