1,1

1! + 2! + 3! + 4! + 5! -2 = 1 + 2 + 6 + 24 + 120 - 2 = 151 which is a prime.

Do[If[PrimeQ[Sum[m!, {m, 1, n}]-2], Print[n]], {n, 1, 2500}]

Sequence in context: A074221 A052276 A046964 this_sequence A109350 A077034 A076601

Adjacent sequences: A055490 A055491 A055492 this_sequence A055494 A055495 A055496

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 05 2000