A101746 Primes of the form ((0!)^2+(1!)^2+(2!)^2+...+(n!)^2)/6.
7, 103, 2503, 88903, 4322503, 2473107965928318342544472044975303
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..9
Crossrefs
Programs
-
Mathematica
f2=1; s=2; Do[f2=f2*n*n; s=s+f2; If[PrimeQ[s/6], Print[{n, s/6}]], {n, 2, 100}] Select[Accumulate[(Range[0,25]!)^2]/6,PrimeQ] (* Harvey P. Dale, Aug 31 2021 *)
Comments