%I #13 Jun 12 2017 19:00:39
%S 0,2,4,8,28,32,448,2108,3112,76264
%N Numbers n such that 6*9^n +1 is prime.
%C a(11) > 10^5. - _Robert Price_, Jun 04 2015
%t Do[If[PrimeQ[6*9^n + 1], Print[n]], {n, 0, 1000}]
%t Select[Range[3000], PrimeQ[6 9^# + 1] &] (* _Vincenzo Librandi_, Sep 28 2012 *)
%o (PARI) is(n)=ispseudoprime(6*9^n+1) \\ _Charles R Greathouse IV_, Jun 12 2017
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Aug 22 2000
%E a(8) from _Vincenzo Librandi_, Sep 28 2012
%E a(9)-a(10) from _Robert Price_, Jun 04 2015
|