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.

A034834 One seventh of sept-factorial numbers.

This page as a plain text file.
%I A034834 #34 Sep 08 2022 08:44:52
%S A034834 1,14,294,8232,288120,12101040,592950960,33205253760,2091930986880,
%T A034834 146435169081600,11275508019283200,947142673619788800,
%U A034834 86189983299400780800,8446618363341276518400,886894928150834034432000,99332231952893411856384000,11820535602394316010909696000
%N A034834 One seventh of sept-factorial numbers.
%H A034834 G. C. Greubel, <a href="/A034834/b034834.txt">Table of n, a(n) for n = 1..335</a>
%H A034834 <a href="/index/Fa#factorial">Index entries for sequences related to factorial numbers</a>.
%F A034834 7*a(n) = (7*n)(!^7) = Product_{j=1..n} 7*j = 7^n*n!.
%F A034834 E.g.f.: x/(1-7*x).
%F A034834 a(n) = A051188(n)/7.
%F A034834 From _Amiram Eldar_, Jan 08 2022: (Start)
%F A034834 Sum_{n>=1} 1/a(n) = 7*(exp(1/7)-1).
%F A034834 Sum_{n>=1} (-1)^(n+1)/a(n) = 7*(1-exp(-1/7)). (End)
%t A034834 Table[7^(n-1)*n!, {n,1,30}] (* or *) Drop[With[{nn = 50},CoefficientList[ Series[x/(1-7*x), {x, 0, nn}], x]*Range[0, nn]!], 1] (* _G. C. Greubel_, Feb 22 2018 *)
%o A034834 (PARI) my(x='x+O('x^30)); Vec(serlaplace(x/(1-7*x))) \\ _G. C. Greubel_, Feb 22 2018
%o A034834 (Magma) [7^(n-1)*Factorial(n): n in [1..30]]; // _G. C. Greubel_, Feb 22 2018
%Y A034834 Cf. A045754, A034829, A034830, A034831, A034832, A034833, A051188.
%K A034834 easy,nonn
%O A034834 1,2
%A A034834 _Wolfdieter Lang_
%E A034834 More terms from _G. C. Greubel_, Feb 22 2018