A045754 -id:A045754 - cp's OEIS frontend

A049209 a(n) = -Product_{k=0..n} (7*k-1); sept-factorial numbers.

1, 6, 78, 1560, 42120, 1432080, 58715280, 2818333440, 155008339200, 9610517030400, 663125675097600, 50397551307417600, 4182996758515660800, 376469708266409472000, 36517561701841718784000, 3797826416991538753536000, 421558732286060801642496000

Offset: 0

Wolfdieter Lang

G. C. Greubel, Table of n, a(n) for n = 0..330
Index entries for sequences related to factorial numbers.

Cf. A034833, A045754, A048994, A051188, A084947, A144739, A144827, A147585.
Row sums of triangle A051186 (scaled Stirling1 triangle).
Sequences of the form m^n*Pochhammer((m-1)/m, n): A000007 (m=1), A001147 (m=2), A008544 (m=3), A008545 (m=4), A008546 (m=5), A008543 (m=6), this sequence (m=7), A049210 (m=8), A049211 (m=9), A049212 (m=10), A254322 (m=11), A346896 (m=12).

[ -&*[ (7*k-1): k in [0..n-1] ]: n in [1..15] ]; // Klaus Brockhaus, Nov 10 2008

CoefficientList[Series[(1-7*x)^(-6/7),{x,0,20}],x] * Range[0,20]! (* Vaclav Kotesovec, Jan 28 2015 *)
With[{m=7}, Table[m^n*Pochhammer[(m-1)/m, n], {n, 0, 30}]] (* G. C. Greubel, Feb 16 2022 *)

m=7; [m^n*rising_factorial((m-1)/m, n) for n in (0..30)] # G. C. Greubel, Feb 16 2022

a(n) = 6*A034833(n) = (7*n-1)*(!^7), n >= 1, a(0) := 1.
a(n) = Product_{k=1..n} (7*k - 1). a(0) = 1; a(n) = (7*n - 1)*a(n-1) for n > 0. - Klaus Brockhaus, Nov 10 2008
G.f.: 1/(1-6*x/(1-7*x/(1-13*x/(1-14*x/(1-20*x/(1-21*x/(1-27*x/(1-28*x/(1-...(continued fraction). - Philippe Deléham, Jan 08 2012
a(n) = (-1)^n*Sum_{k=0..n} 7^k*s(n+1,n+1-k), where s(n,k) are the Stirling numbers of the first kind, A048994. - Mircea Merca, May 03 2012
a(n) = 7^n * Gamma(n+6/7) / Gamma(6/7). - Vaclav Kotesovec, Jan 28 2015
E.g.f.: (1-7*x)^(-6/7). - Vaclav Kotesovec, Jan 28 2015
From Nikolaos Pantelidis, Dec 19 2020: (Start)
G.f.: 1/G(0) where G(k) = 1 - (14*k+6)*x - 7*(k+1)*(7*k+6)*x^2/G(k+1); (continued fraction).
which starts as 1/(1-6*x-42*x^2/(1-20*x-182*x^2/(1-34*x-420*x^2/(1-48*x-756*x^2/(1-62*x-1190*x^2/(1-... )))))) (Jacobi continued fraction).
G.f.: 1/Q(0) where Q(k) = 1 - (7*k+6)*x/(1 - (7*k+7)*x/Q(k+1) ); (continued fraction). (End)
Sum_{n>=0} 1/a(n) = 1 + (e/7)^(1/7)*(Gamma(6/7) - Gamma(6/7, 1/7)). - Amiram Eldar, Dec 19 2022

A051188 Sept-factorial numbers.

Original entry on oeis.org

1, 7, 98, 2058, 57624, 2016840, 84707280, 4150656720, 232436776320, 14643516908160, 1025046183571200, 78928556134982400, 6629998715338521600, 603329883095805465600, 59126328543388935628800

Offset: 0

Wolfdieter Lang

For n >= 1, a(n) is the order of the wreath product of the symmetric group S_n and the Abelian group (C_7)^n. - Ahmed Fares (ahmedfares(AT)my-deja.com), May 07 2001

Vincenzo Librandi, Table of n, a(n) for n = 0..300
INRIA Algorithms Project, Encyclopedia of Combinatorial Structures 614.
Index entries for sequences related to factorial numbers

Cf. A000142, A000165, A032031, A045754, A047053, A047058, A049209, A051186, A052562, A053106, A084947, A092516, A092750, A144827, A144739, A147585.

[7^n*Factorial(n): n in [0..20]]; // Vincenzo Librandi, Oct 05 2011

a(n) = n!*7^n; \\ Michel Marcus, Jun 08 2020

a(n) = n!*7^n =: (7*n)(!^7).
a(n) = 7*A034834(n) = Product_{k=1..n} 7*k, n >= 1.
E.g.f.: 1/(1 - 7*x).
G.f.: 1/(1 - 7*x/(1 - 7*x/(1 - 14*x/(1 - 14*x/(1 - 21*x/(1 - 21*x/(1 - 28*x/(1 - 28*x/(1 - ... (continued fraction). - Philippe Deléham, Jan 08 2012
From Amiram Eldar, Jun 25 2020: (Start)
Sum_{n>=0} 1/a(n) = e^(1/7) (A092516).
Sum_{n>=0} (-1)^n/a(n) = e^(-1/7) (A092750). (End)

A114799 Septuple factorial, 7-factorial, n!7, n!!!!!!!, a(n) = n*a(n-7) if n > 1, else 1.

Original entry on oeis.org

1, 1, 2, 3, 4, 5, 6, 7, 8, 18, 30, 44, 60, 78, 98, 120, 288, 510, 792, 1140, 1560, 2058, 2640, 6624, 12240, 19800, 29640, 42120, 57624, 76560, 198720, 379440, 633600, 978120, 1432080, 2016840, 2756160, 7352640, 14418720, 24710400, 39124800

Offset: 0

Jonathan Vos Post, Feb 18 2006

Many of the terms yield multifactorial primes a(n) + 1, e.g.: a(2) + 1 = 3, a(4) + 1 = 5, a(6) + 1 = 7, a(9) + 1 = 19, a(10) + 1 = 31, a(12) + 1 = 61, a(13) + 1 = 79, a(24) + 1 = 12241, a(25) + 1 = 19801, a(26) + 1 = 29641, a(29) + 1 = 76561, a(31) + 1 = 379441, a(35) + 1 = 2016841, a(36) + 1 = 2756161, ...

Equivalently, product of all positive integers <= n congruent to n (mod 7). - M. F. Hasler, Feb 23 2018

			a(40) = 40 * a(40-7) = 40 * a(33) = 40 * (33*a(26)) = 40 * 33 * (26*a(19)) = 40 * 33 * 26 * (19*a(12)) = 40 * 33 * 26 * 19 * (12*a(5)) = 40 * 33 * 26 * 19 * 12 5 = 39124800.

G. C. Greubel, Table of n, a(n) for n = 0..1000
Eric Weisstein's World of Mathematics, Multifactorial.
Index entries for sequences related to factorial numbers

Cf. A045754, A084947, A288094.

Cf. k-fold factorials: A000142, A001147 (and A000165, A006882), A007559 (and A032031, A008544, A007661), A007696 (and A001813, A008545, A047053, A007662), A008548 (and A052562, A047055, A085157), A085158 (and A008542, A047058, A047657), A045755.

a:= function(n)
    if n<1 then return 1;
    else return n*a(n-7);
    fi;
  end;
List([0..40], n-> a(n) ); # G. C. Greubel, Aug 20 2019

b:= func< n | (n lt 8) select n else n*Self(n-7) >;
[1] cat [b(n): n in [1..40]]; // G. C. Greubel, Aug 20 2019

A114799 := proc(n)
    option remember;
    if n < 1 then
        1;
    else
        n*procname(n-7) ;
    end if;
end proc:
seq(A114799(n),n=0..40) ; # R. J. Mathar, Jun 23 2014
A114799 := n -> product(n-7*k,k=0..(n-1)/7); # M. F. Hasler, Feb 23 2018

a[n_]:= If[n<1, 1, n*a[n-7]]; Table[a[n], {n,0,40}] (* G. C. Greubel, Aug 20 2019 *)

A114799(n,k=7)=prod(j=0,(n-1)\k,n-j*k) \\ M. F. Hasler, Feb 23 2018

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

a(n) = 1 for n <= 1, else a(n) = n*a(n-7).

Sum_{n>=0} 1/a(n) = A288094. - Amiram Eldar, Nov 10 2020

Edited by M. F. Hasler, Feb 23 2018

A144739 7-factorial numbers A114799(7n+3): Partial products of A017017(k) = 7k+3, a(0) = 1.

Original entry on oeis.org

1, 3, 30, 510, 12240, 379440, 14418720, 648842400, 33739804800, 1990648483200, 131382799891200, 9590944392057600, 767275551364608000, 66752972968720896000, 6274779459059764224000, 633752725365036186624000, 68445294339423908155392000, 7871208849033749437870080000

Offset: 0

Philippe Deléham, Sep 20 2008

nonn

			a(0)=1, a(1)=3, a(2)=3*10=30, a(3)=3*10*17=510, a(4)=3*10*17*24=12240, ...

G. C. Greubel, Table of n, a(n) for n = 0..335
Index entries for sequences related to factorial numbers.

Cf. A114799, A001710, A001147, A032031, A008545, A047056, A011781, A045754, A084947, A144827, A147585, A049209, A051188.

List([0..20], n-> Product([0..n-1], k-> 7*k+3) ); # G. C. Greubel, Aug 19 2019

[ 1 ] cat [ &*[ (7*k+3): k in [0..n] ]: n in [0..20] ]; // Klaus Brockhaus, Nov 10 2008

a:= n-> product(7*j+3, j=0..n-1); seq(a(n), n=0..20); # G. C. Greubel, Aug 19 2019

Table[7^n*Pochhammer[3/7, n], {n,0,20}] (* G. C. Greubel, Aug 19 2019 *)

a(n)=prod(i=1,n,7*i-4) \\ Charles R Greathouse IV, Jul 02 2013

[product(7*k+3 for k in (0..n-1)) for n in (0..20)] # G. C. Greubel, Aug 19 2019

a(n) = Sum_{k=0..n} A132393(n,k)*3^k*7^(n-k).
G.f.: 1/(1-3*x/(1-7*x/(1-10*x/(1-14*x/(1-17*x/(1-21*x/(1-24*x/(1-... (continued fraction). - Philippe Deléham, Jan 08 2012
a(n) = (-4)^n*Sum_{k=0..n} (7/4)^k*s(n+1,n+1-k), where s(n,k) are the Stirling numbers of the first kind, A048994. - Mircea Merca, May 03 2012
From Ilya Gutkovskiy, Mar 23 2017: (Start)
E.g.f.: 1/(1 - 7*x)^(3/7).
a(n) ~ sqrt(2*Pi)*7^n*n^n/(exp(n)*n^(1/14)*Gamma(3/7)). (End)
a(n) = A114799(7*n-4). - M. F. Hasler, Feb 23 2018
D-finite with recurrence: a(n) +(-7*n+4)*a(n-1)=0. - R. J. Mathar, Feb 21 2020
Sum_{n>=0} 1/a(n) = 1 + (e/7^4)^(1/7)*(Gamma(3/7) - Gamma(3/7, 1/7)). - Amiram Eldar, Dec 19 2022

A144827 Partial products of successive terms of A017029; a(0)=1.

Original entry on oeis.org

1, 4, 44, 792, 19800, 633600, 24710400, 1136678400, 60243955200, 3614637312000, 242180699904000, 17921371792896000, 1451631115224576000, 127743538139762688000, 12135636123277455360000, 1237834884574300446720000, 134924002418598748692480000, 15651184280557454848327680000

Offset: 0

Philippe Deléham, Sep 21 2008

nonn

			a(0)=1, a(1)=4, a(2)=4*11=44, a(3)=4*11*18=792, a(4)=4*11*18*25=19800, ...

T. D. Noe, Table of n, a(n) for n = 0..100

Cf. A001715, A002866, A007559, A008546, A045754, A047053, A132393.

Cf. A049209, A049308, A051188, A084947, A144739, A147585.

[ 1 ] cat [ &*[ (7*k+4): k in [0..n] ]: n in [0..14] ]; // Klaus Brockhaus, Nov 10 2008

FoldList[Times,1,Range[4,150,7]] (* Harvey P. Dale, Apr 25 2014 *)

[1]+[4*7^(n-1)*rising_factorial(11/7, n-1) for n in (1..30)] # G. C. Greubel, Feb 22 2022

a(n) = Sum_{k=0..n} A132393(n,k)*4^k*7^(n-k).
G.f.: 1/(1-4*x/(1-7*x/(1-11*x/(1-14*x/(1-18*x/(1-21*x/(1-25*x/(1-... (continued fraction). - Philippe Deléham, Jan 08 2012
a(n) = (-3)^n*Sum_{k=0..n} (7/3)^k*s(n+1,n+1-k), where s(n,k) are the Stirling numbers of the first kind, A048994. - Mircea Merca, May 03 2012
From Ilya Gutkovskiy, Mar 23 2017: (Start)
E.g.f.: 1/(1 - 7*x)^(4/7).
a(n) ~ sqrt(2*Pi)*7^n*n^(n+1/14)/(exp(n)*Gamma(4/7)). (End)
a(n) = 4*7^(n-1)*Pochhammer(n-1, 11/7) with a(0) = 1. - G. C. Greubel, Feb 22 2022
Sum_{n>=0} 1/a(n) = 1 + (e/7^3)^(1/7)*(Gamma(4/7) - Gamma(4/7, 1/7)). - Amiram Eldar, Dec 19 2022

Corrected a(9) by Vincenzo Librandi, Jul 14 2011

A034834 One seventh of sept-factorial numbers.

Original entry on oeis.org

1, 14, 294, 8232, 288120, 12101040, 592950960, 33205253760, 2091930986880, 146435169081600, 11275508019283200, 947142673619788800, 86189983299400780800, 8446618363341276518400, 886894928150834034432000, 99332231952893411856384000, 11820535602394316010909696000

Offset: 1

Wolfdieter Lang

G. C. Greubel, Table of n, a(n) for n = 1..335
Index entries for sequences related to factorial numbers.

Cf. A045754, A034829, A034830, A034831, A034832, A034833, A051188.

[7^(n-1)*Factorial(n): n in [1..30]]; // G. C. Greubel, Feb 22 2018

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 *)

my(x='x+O('x^30)); Vec(serlaplace(x/(1-7*x))) \\ G. C. Greubel, Feb 22 2018

7*a(n) = (7*n)(!^7) = Product_{j=1..n} 7*j = 7^n*n!.
E.g.f.: x/(1-7*x).
a(n) = A051188(n)/7.
From Amiram Eldar, Jan 08 2022: (Start)
Sum_{n>=1} 1/a(n) = 7*(exp(1/7)-1).
Sum_{n>=1} (-1)^(n+1)/a(n) = 7*(1-exp(-1/7)). (End)

More terms from G. C. Greubel, Feb 22 2018

A034829 a(n) = n-th sept-factorial number divided by 2.

Original entry on oeis.org

1, 9, 144, 3312, 99360, 3676320, 161758080, 8249662080, 478480400640, 31101226041600, 2239288274995200, 176903773724620800, 15213724540317388800, 1414876382249517158400, 141487638224951715840000, 15139177290069833594880000, 1725866211067961029816320000

Offset: 1

Wolfdieter Lang

Peter Luschny, Multifactorials.
Index entries for sequences related to factorial numbers.

Cf. A045754, A034830, A034831, A034832, A034833, A034834, A084947.

Drop[With[{nn = 50}, CoefficientList[Series[(-1 + (1 - 7*x)^(-2/7))/2, {x, 0, nn}], x]*Range[0, nn]!], 1] (* G. C. Greubel, Feb 23 2018 *)

vector(20, n, prod(j=1, n, 7*j-5)/2) \\ Michel Marcus, Jan 07 2015

2*a(n) = (7*n-5)(!^7) = Product_{j=1..n} (7*j-5).
E.g.f.: (-1 + (1-7*x)^(-2/7))/2.
D-finite with recurrence: a(n) +(-7*n+5)*a(n-1)=0. - R. J. Mathar, Feb 24 2020
From Amiram Eldar, Dec 19 2022: (Start)
a(n) = A084947(n)/2.
Sum_{n>=1} 1/a(n) = 2*(e/7^5)^(1/7)*(Gamma(2/7) - Gamma(2/7, 1/7)). (End)

A034830 a(n) = n-th sept-factorial number divided by 3.

Original entry on oeis.org

1, 10, 170, 4080, 126480, 4806240, 216280800, 11246601600, 663549494400, 43794266630400, 3196981464019200, 255758517121536000, 22250990989573632000, 2091593153019921408000, 211250908455012062208000, 22815098113141302718464000, 2623736283011249812623360000

Offset: 1

Wolfdieter Lang

G. C. Greubel, Table of n, a(n) for n = 1..339
Index entries for sequences related to factorial numbers.

Cf. A045754, A034829, A034831, A034832, A034833, A034834, A144739.

Drop[With[{nn = 40}, CoefficientList[Series[(-1 + (1 - 7*x)^(-3/7))/3, {x, 0, nn}], x]*Range[0, nn]!], 1] (* G. C. Greubel, Feb 23 2018 *)

my(x='x+O('x^30)); Vec(serlaplace((-1 + (1-7*x)^(-3/7))/3)) \\ G. C. Greubel, Feb 23 2018

3*a(n) = (7*n-4)(!^7) = Product_{j=1..n} (7*j-4).
E.g.f.: (-1 + (1-7*x)^(-3/7))/3.
From Amiram Eldar, Dec 20 2022: (Start)
a(n) = A144739(n)/3.
Sum_{n>=1} 1/a(n) = 3*(e/7^4)^(1/7)*(Gamma(3/7) - Gamma(3/7, 1/7)). (End)

More terms added by G. C. Greubel, Feb 23 2018

A034833 a(n) = n-th sept-factorial number divided by 6.

Original entry on oeis.org

1, 13, 260, 7020, 238680, 9785880, 469722240, 25834723200, 1601752838400, 110520945849600, 8399591884569600, 697166126419276800, 62744951377734912000, 6086260283640286464000, 632971069498589792256000, 70259788714343466940416000, 8290655068292529098969088000

Offset: 1

Wolfdieter Lang

Harvey P. Dale, Table of n, a(n) for n = 1..339
Index entries for sequences related to factorial numbers.

Cf. A049209, A045754, A034829, A034830, A034831, A034832, A034834.

[(&*[(7*k-1): k in [1..n]])/6: n in [1..30]]; // G. C. Greubel, Feb 24 2018

FoldList[Times,1,Rest[7*Range[20]-1]] (* Harvey P. Dale, Dec 15 2014 *)

my(x='x+('x^30)); Vec(serlaplace((-1 + (1-7*x)^(-6/7))/6)) \\ G. C. Greubel, Feb 22 2018

a(n) = A049209(n)/6;
a(n) = (7*n-1)(!^7)/6;
a(n) = (1/6)*Product_{j=1..n} (7*j-1);
a(n) = (1/6)*(7*n)! / (7^n * n! * A045754(n) * 2*A034829(n) * 3*A034830(n) * 4*A034831(n) * 5*A034832(n)).
E.g.f.: (-1 + (1-7*x)^(-6/7))/6.
Sum_{n>=1} 1/a(n) = 6*(e/7)^(1/7)*(Gamma(6/7) - Gamma(6/7, 1/7)). - Amiram Eldar, Dec 20 2022

A147585 a(1) = 1; a(n) = (7n-9)a(n-1) for n > 1.

Original entry on oeis.org

1, 5, 60, 1140, 29640, 978120, 39124800, 1838865600, 99298742400, 6057223286400, 411891183475200, 30891838760640000, 2533130778372480000, 225448639275150720000, 21643069370414469120000, 2229236145152690319360000, 245215975966795935129600000, 28690269188115124410163200000

Offset: 1

Vladimir Joseph Stephan Orlovsky, Nov 08 2008

nonn

G. C. Greubel, Table of n, a(n) for n = 1..340

Cf. A048994, A132393.

Cf. A045754, A049209, A084947, A144739, A144827, A051188.

[ n eq 1 select 1 else Self(n-1)*(7*n-9): n in [1..15] ]; // Klaus Brockhaus, Nov 10 2008

[ 1 ] cat [ &*[ (5+7*k): k in [0..n-1] ]: n in [1..14] ]; // Klaus Brockhaus, Nov 10 2008

seq( -7^n*pochhammer(-2/7, n)/2, n = 1..15); # G. C. Greubel, Dec 03 2019

Table[-7^n*Pochhammer[-2/7, n]/2, {n, 15}] (* G. C. Greubel, Dec 03 2019 *)

{for(n=1, 15, print1(prod(k=1, n-1, 7*k-2,), ","))} \\ Klaus Brockhaus, Nov 10 2008

[-7^n*rising_factorial(-2/7, n)/2 for n in (1..15)] # G. C. Greubel, Dec 03 2019

a(n) = Product_{k=1..n-1} (7*k - 2). - Klaus Brockhaus, Nov 10 2008
a(n) = (5*7^(n-1)*Gamma(5/7+n))/Gamma(12/7). - Klaus Brockhaus, Nov 10 2008
a(n+1) = Sum_{k=0..n} A132393(n,k)*5^k*7^(n-k). - Philippe Deléham, Nov 09 2008
G.f.: x/(1-5x/(1-7x/(1-12x/(1-14x/(1-19x/(1-21x/(1-26x/(1-... (continued fraction). - Philippe Deléham, Jan 08 2012
a(n) = (-2)^n*Sum_{k=0..n} (7/2)^k*s(n+1,n+1-k), where s(n,k) are the Stirling numbers of the first kind, A048994. - Mircea Merca, May 03 2012
Sum_{n>=1} 1/a(n) = 1 + (e/7^2)^(1/7)*(Gamma(5/7) - Gamma(5/7, 1/7)). - Amiram Eldar, Dec 19 2022

Edited by Klaus Brockhaus, Nov 10 2008

cp's OEIS Frontend

A049209 a(n) = -Product_{k=0..n} (7*k-1); sept-factorial numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

Sage

Formula

A051188 Sept-factorial numbers.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

PARI

Formula

A114799 Septuple factorial, 7-factorial, n!7, n!!!!!!!, a(n) = n*a(n-7) if n > 1, else 1.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Sage

Formula

Extensions

A144739 7-factorial numbers A114799(7*n+3): Partial products of A017017(k) = 7*k+3, a(0) = 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

GAP

Magma

Maple

Mathematica

PARI

Sage

Formula

A144827 Partial products of successive terms of A017029; a(0)=1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Magma

Mathematica

SageMath

Formula

Extensions

A034834 One seventh of sept-factorial numbers.

Views

Author

Keywords

Links

Crossrefs

Programs

Magma

Mathematica

PARI

Formula

Extensions

A144739 7-factorial numbers A114799(7n+3): Partial products of A017017(k) = 7k+3, a(0) = 1.

A147585 a(1) = 1; a(n) = (7n-9)a(n-1) for n > 1.