OFFSET
1,1
COMMENTS
a(13) > 50000. - Robert Price, Jan 04 2020
MATHEMATICA
Select[Range[1, 1000], PrimeQ[6*#^# - 5] &] (* Vaclav Kotesovec, Apr 02 2018 *)
PROG
(PARI) for(n=0, 300, if(isprime(6*n^n-5), print1(n", ")))
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
Seiichi Manyama, Apr 01 2018
EXTENSIONS
a(10)-a(11) from Vaclav Kotesovec, Apr 02 2018
a(12) from Robert Price, Jan 04 2020
STATUS
approved