%I #6 Jun 13 2017 14:43:26
%S 4,6,46,58,184,336,29274,98928
%N Numbers n such that 8^n + 7^(n+1) is prime.
%C a(9) > 10^5.
%t Select[Range[0, 100000], PrimeQ[8^# + 7^(# + 1)] &]
%o (PARI) is(n)=ispseudoprime(8^n+7^(n+1)) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A093765.
%K nonn,more
%O 1,1
%A _Robert Price_, Jun 13 2016
|