A100902 Numbers n such that (6^n+1)^2-2 is prime.

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

Links

Table of n, a(n) for n=1..22.

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

Sequence in context: A027866 A283596 A281992 * A283447 A034793 A134313

Adjacent sequences: A100899 A100900 A100901 * A100903 A100904 A100905

Keyword

nonn,more

Author

Ray Chandler, Nov 21 2004

Extensions

Added 0 from Vincenzo Librandi, Nov 03 2014

Status

approved