login
A180631
Numbers k such that 10*k! - 1 is prime.
10
2, 3, 4, 33, 55, 95, 110, 148, 170, 612, 1155, 2295, 2473, 4143, 5671
OFFSET
1,1
COMMENTS
a(16) > 12000. - Michael S. Branicky, Jul 04 2024
MATHEMATICA
fQ[n_] := PrimeQ[10 n! - 1]; k = 0; lst = {}; While[k < 1501, If[ fQ@k, AppendTo[lst, k]; Print@k]; k++ ]; lst
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Sep 13 2010
EXTENSIONS
a(12)-a(14) from Jinyuan Wang, Feb 04 2020
a(15) from Michael S. Branicky, Jul 03 2024
STATUS
approved