A034300 -id:A034300 - cp's OEIS frontend

A303488 a(n) = n! * [x^n] 1/(1 - 5*x)^(n/5).

1, 1, 14, 312, 9576, 375000, 17873856, 1004306688, 65006637696, 4763494479744, 389812500000000, 35237024762075136, 3487065897634615296, 374960171943074285568, 43532820293400237735936, 5427359437500000000000000, 723181462895975365595529216, 102563963819340862347122245632

Offset: 0

Ilya Gutkovskiy, Apr 24 2018

nonn

			a(1) = 1;
a(2) = 2*7 = 14;
a(3) = 3*8*13 = 312;
a(4) = 4*9*14*19 = 9576;
a(5) = 5*10*15*20*25 = 375000, etc.

Index entries for sequences related to factorial numbers

Column k=5 of A303489.

Cf. A008546, A008548, A034300, A034301, A034323, A034325, A047055, A047056, A051687, A051688, A051689, A051690, A051691, A052562, A113551, A303486, A303487.

Table[n! SeriesCoefficient[1/(1 - 5 x)^(n/5), {x, 0, n}], {n, 0, 17}]
Table[Product[5 k + n, {k, 0, n - 1}], {n, 0, 17}]
Table[5^n Pochhammer[n/5, n], {n, 0, 17}]

a(n) = Product_{k=0..n-1} (5*k + n).
a(n) = 5^n*Gamma(6*n/5)/Gamma(n/5).
a(n) ~ 6^(6*n/5-1/2)*n^n/exp(n).

A081408 a(n) = (n+1)*a(n-5), with a(0)=a(1)=a(2)=a(3)=a(4)=1.

Original entry on oeis.org

1, 1, 1, 1, 1, 6, 7, 8, 9, 10, 66, 84, 104, 126, 150, 1056, 1428, 1872, 2394, 3000, 22176, 31416, 43056, 57456, 75000, 576576, 848232, 1205568, 1666224, 2250000, 17873856, 27143424, 39783744, 56651616, 78750000, 643458816, 1004306688, 1511782272

Offset: 0

Labos Elemer, Apr 01 2003

nonn

Quintic factorial sequences are generated by single 5-order recursion and appear in unified form.

			A008548, A034323, A034300, A034301, A034325 sequences are combed together as A081408(5n+r) with r=0,1,2,3,4.

Reinhard Zumkeller, Table of n, a(n) for n = 0..1000

Cf. A001147, A002866, A034001, A007599, A034000, A007696, A000407, A034176, A034177, A008548, A034323, A034300, A034301, A034325 [double, triple, quartic, quintic, factorial subsequences], generated together in A081405-A081408.

a:=[1,1,1,1,1];; for n in [6..40] do a[n]:=n*a[n-5]; od; a; # G. C. Greubel, Aug 15 2019

a081407 n = a081408_list !! n
a081407_list = 1 : 1 : 1 : 1 : zipWith (*) [5..] a081407_list
-- Reinhard Zumkeller, Jan 05 2012

[n le 5 select 1 else n*Self(n-5): n in [1..40]]; // G. C. Greubel, Aug 15 2019

a[0]=a[1]=a[2]=a[3]=a[4]=1; a[x_]:= (x+1)*a[x-5]; Table[a[n], {n, 40}]

m=30; v=concat([1,1,1,1,1], vector(m-5)); for(n=6, m, v[n]=n*v[n-5] ); v \\ G. C. Greubel, Aug 15 2019

def a(n):
    if (n<5): return 1
    else: return (n+1)*a(n-5)
[a(n) for n in (0..40)] # G. C. Greubel, Aug 15 2019

cp's OEIS Frontend

A303488 a(n) = n! * [x^n] 1/(1 - 5*x)^(n/5).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A081408 a(n) = (n+1)*a(n-5), with a(0)=a(1)=a(2)=a(3)=a(4)=1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

GAP

Haskell

Magma

Mathematica

PARI

Sage