This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A104344 #45 Feb 16 2025 08:32:56 %S A104344 1,5,41,617,15017,533417,25935017,1651637417,133333531817, %T A104344 13301522971817,1606652445211817,231049185247771817, %U A104344 39006837228880411817,7639061293780877851817,1717651314017980301851817,439480788011413032845851817,126953027293558583218061851817 %N A104344 a(n) = Sum_{k=1..n} k!^2. %H A104344 Seiichi Manyama, <a href="/A104344/b104344.txt">Table of n, a(n) for n = 1..253</a> %H A104344 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/FactorialSums.html">Factorial Sums</a> %F A104344 a(n) = A061062(n) - 1. - _Michel Marcus_, Feb 28 2014 %t A104344 Table[Sum[(k!)^2,{k,n}],{n,15}] (* _Harvey P. Dale_, Jul 21 2011 *) %t A104344 Accumulate[(Range[20]!)^2] (* Much more efficient than the above program. *) (* _Harvey P. Dale_, Aug 15 2022 *) %o A104344 (PARI) a(n) = sum(k=1, n, k!^2); \\ _Michel Marcus_, Jul 16 2017 %Y A104344 Cf. A001044, A061062, A100289. %Y A104344 Sum_{k=1..n} (k!)^m: A007489 (m=1), this sequence (m=2), A138564 (m=3), A289945 (m=4), A316777 (m=5), A289946 (m=6). %K A104344 nonn,easy %O A104344 1,2 %A A104344 _Eric W. Weisstein_, Mar 02 2005 %E A104344 More terms from _Vladimir Joseph Stephan Orlovsky_, Sep 24 2009