A271883 - OEIS

%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