OFFSET
1,2
LINKS
MATHEMATICA
Select[Range[1500], PrimeQ[# 6^# + 1] &]
PROG
(Magma) [n: n in [0..1500] | IsPrime(n*6^n+1)];
(PARI) is(n)=ispseudoprime(n*6^n+1) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, May 08 2014
EXTENSIONS
a(9)-a(14) from Loeh's list (see Links) - Bruno Berselli, May 08 2014
STATUS
approved