login
A100902
Numbers n such that (6^n+1)^2-2 is prime.
4
0, 1, 2, 3, 4, 9, 12, 30, 49, 56, 115, 118, 376, 432, 1045, 1310, 6529, 7768, 8430, 21942, 26930, 33568
OFFSET
1,3
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
Sequence in context: A027866 A283596 A281992 * A283447 A034793 A134313
KEYWORD
nonn,more
AUTHOR
Ray Chandler, Nov 21 2004
EXTENSIONS
Added 0 from Vincenzo Librandi, Nov 03 2014
STATUS
approved