OFFSET
1,1
COMMENTS
a(6) > 10^5.
EXAMPLE
2 is a member since 9^2 - 8^1 = 81 - 8 = 73 which is a prime number.
MATHEMATICA
Select[Range[0, 100000], PrimeQ[9^# - 8^(# - 1)] &]
PROG
(PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(9^n-8^(n-1)), print1(n, ", "))); \\ Altug Alkan, Apr 16 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert Price, Apr 16 2016
STATUS
approved