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