cp's OEIS Frontend

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.

A070227 a(n) = Sum_{k>=0} (k+n)!^n/((k+n)!*(k!^n)*exp(1)).

This page as a plain text file.
%I A070227 #23 May 01 2025 08:57:29
%S A070227 1,1,7,2971,326922081,25571928251231076,3104750712141723393459934903,
%T A070227 1106411839720559249283387766293758050197271,
%U A070227 1982711933502621451047063899803427489760228712955842831202561
%N A070227 a(n) = Sum_{k>=0} (k+n)!^n/((k+n)!*(k!^n)*exp(1)).
%H A070227 Amiram Eldar, <a href="/A070227/b070227.txt">Table of n, a(n) for n = 0..24</a>
%F A070227 a(n) = A090210(n,n). - _Alois P. Heinz_, Aug 01 2016
%F A070227 a(n) = Sum_{k=n..n^2} Sum_{m=n..k} (-1)^(k+m) * m!^(n-1) / ((k-m)! * (m-n)!^n). - _Vaclav Kotesovec_, May 01 2025
%t A070227 a[n_] := Exp[-1] * Sum[(k + n)!^n/((k + n)!*(k!^n)), {k, 0, Infinity}]; Array[a, 10, 0] (* _Amiram Eldar_, May 01 2025 *)
%t A070227 Table[Sum[(-1)^(k+m) * m!^(n-1) / ((k-m)!*(m-n)!^n), {k, n, n^2}, {m, n, k}], {n, 0, 10}] (* _Vaclav Kotesovec_, May 01 2025 *)
%o A070227 (PARI) \\ precision 1000 digits :
%o A070227 for(n=1,9,print1(round(sum(k=0,200,(k+n)!^n/((k+n)!*(k!^n)*exp(1)))),","))
%Y A070227 Cf. A090210.
%K A070227 easy,nonn
%O A070227 0,3
%A A070227 _Benoit Cloitre_, May 07 2002
%E A070227 a(0)=1 prepended by _Alois P. Heinz_, Aug 01 2016