The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A053106

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A053106

a(n) = ((7*n+10)(!^7))/10(1^7), related to A034830 (((7*n+3)(!^7))/3 sept-, or 7-factorials).
(history; published version)

#17 by Charles R Greathouse IV at Thu Sep 08 08:45:00 EDT 2022

PROG

(MAGMAMagma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(1/(1-7*x)^(17/7))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Aug 16 2018

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#16 by Alois P. Heinz at Fri Aug 24 21:09:41 EDT 2018

STATUS

proposed

approved

#15 by Michel Marcus at Sun Aug 19 03:22:48 EDT 2018

STATUS

editing

proposed

#14 by Michel Marcus at Sun Aug 19 03:22:24 EDT 2018

CROSSREFS

Cf. A051188, A045754(n+1), A034829-34A034834(n+1), A053104-A053106 (rows m=0..10).

STATUS

reviewed

editing

Discussion

Sun Aug 19

03:22

Michel Marcus: doch, 11 sequnces in xref: ok...

#13 by Michel Marcus at Thu Aug 16 02:59:55 EDT 2018

STATUS

proposed

reviewed

Discussion

Thu Aug 16

03:02

Michel Marcus: A053104-A053106 (rows m=0..10) : does not seem right

#12 by G. C. Greubel at Thu Aug 16 02:11:41 EDT 2018

STATUS

editing

proposed

#11 by G. C. Greubel at Thu Aug 16 02:11:38 EDT 2018

NAME

a(n) = ((7*n+10)(!^7))/10(1^7), related to A034830 (((7*n+3)(!^7))/3 sept-, or 7-factorials).

LINKS

G. C. Greubel, <a href="/A053106/b053106.txt">Table of n, a(n) for n = 0..337</a>

MATHEMATICA

With[{nn = 30}, CoefficientList[Series[1/(1 - 7*x)^(17/7), {x, 0, nn}], x]*Range[0, nn]!] (* G. C. Greubel, Aug 16 2018 *)

PROG

(PARI) x='x+O('x^30); Vec(serlaplace(1/(1-7*x)^(17/7))) \\ G. C. Greubel, Aug 16 2018

(MAGMA) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(1/(1-7*x)^(17/7))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Aug 16 2018

STATUS

approved

editing

#10 by Alois P. Heinz at Sun Feb 08 18:22:29 EST 2015

STATUS

proposed

approved

#9 by Jon E. Schoenfield at Sun Feb 08 18:21:06 EST 2015

STATUS

editing

proposed

#8 by Jon E. Schoenfield at Sun Feb 08 18:20:52 EST 2015

FORMULA

a(n) = ((7*n+10)(!^7))/10(!^7) = A034830(n+2)/10; e.g.f.: 1/(1-7*x)^(17/7).

E.g.f.: 1/(1-7*x)^(17/7).

MATHEMATICA

s=1; lst={s}; Do[s+=n*s; AppendTo[lst, s], {n, 16, 5!, 7}]; lst [From _(* _Vladimir Joseph Stephan Orlovsky_, Nov 08 2008] *)

STATUS

approved

editing