OFFSET
1,3
LINKS
S. Harvey, Carol and Kynea Primes.
MAPLE
A100902:=n->`if`(isprime((6^n+1)^2-2), n, NULL): seq(A100902(n), n=0..1000); # Wesley Ivan Hurt, Nov 02 2014
MATHEMATICA
Select[Range[0, 2000], PrimeQ[(6^# + 1)^2 - 2] &] (* Vincenzo Librandi, Nov 03 2014 *)
PROG
(Magma) [n: n in [0..300] | IsPrime((6^n+1)^2-2)]; // Vincenzo Librandi, Nov 03 2014
(PARI) is(n)=ispseudoprime((6^n+1)^2-2) \\ Charles R Greathouse IV, Feb 19 2016
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ray Chandler, Nov 21 2004
EXTENSIONS
Added 0 from Vincenzo Librandi, Nov 03 2014
STATUS
approved