|
%I #20 Sep 08 2022 08:45:15
%S 0,1,2,3,4,9,12,30,49,56,115,118,376,432,1045,1310,6529,7768,8430,
%T 21942,26930,33568
%N Numbers n such that (6^n+1)^2-2 is prime.
%H S. Harvey, <a href="http://harvey563.tripod.com/Carol_Kynea.txt">Carol and Kynea Primes</a>.
%p A100902:=n->`if`(isprime((6^n+1)^2-2),n,NULL): seq(A100902(n), n=0..1000); # _Wesley Ivan Hurt_, Nov 02 2014
%t Select[Range[0, 2000], PrimeQ[(6^# + 1)^2 - 2] &] (* _Vincenzo Librandi_, Nov 03 2014 *)
%o (Magma) [n: n in [0..300] | IsPrime((6^n+1)^2-2)]; // _Vincenzo Librandi_, Nov 03 2014
%o (PARI) is(n)=ispseudoprime((6^n+1)^2-2) \\ _Charles R Greathouse IV_, Feb 19 2016
%K nonn,more
%O 1,3
%A _Ray Chandler_, Nov 21 2004
%E Added 0 from _Vincenzo Librandi_, Nov 03 2014
|
