OFFSET
1,1
COMMENTS
Indices that give primes: 1, 2, 4, 10. - Michel Marcus, Jan 06 2014
a(5) corresponds to index 1006 and has 2586 decimal digits. - Giovanni Resta, Jan 06 2014
a(6) corresponds to index 8180 and has 28457 decimal digits. - Charles R Greathouse IV, Jan 08 2014
MATHEMATICA
With[{nn=40}, Select[Total/@Thread[{Range[nn], Accumulate[Range[ nn]!]}], PrimeQ]] (* Harvey P. Dale, Feb 18 2018 *)
PROG
(PARI) lista(nn) = { for (n=1, nn, if (isprime(p = sum(i=1, n, i!) + n), print1(p, ", ")); ); } \\ Michel Marcus, Jan 06 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition corrected by Michel Marcus, Jan 06 2014
STATUS
approved