%I #8 Apr 16 2016 11:42:58
%S 2,22,58,496,2740
%N Numbers n such that 9^n-8^(n-1) is prime.
%C a(6) > 10^5.
%e 2 is a member since 9^2 - 8^1 = 81 - 8 = 73 which is a prime number.
%t Select[Range[0, 100000], PrimeQ[9^# - 8^(# - 1)] &]
%o (PARI) lista(nn) = for(n=1, nn, if(ispseudoprime(9^n-8^(n-1)), print1(n, ", "))); \\ _Altug Alkan_, Apr 16 2016
%Y Cf. A093713, A082103, A093717, A093793, A096185, A093794, A093795, A096186.
%K nonn,more
%O 1,1
%A _Robert Price_, Apr 16 2016