A035018
One fifth of 9-factorial numbers.
Original entry on oeis.org
1, 14, 322, 10304, 422464, 21123200, 1246268800, 84746278400, 6525463436800, 561189855564800, 53313036278656000, 5544555772980224000, 626534802346765312000, 76437245886305368064000, 10013279211106003216384000, 1401859089554840450293760000, 208877004343671227093770240000
Offset: 1
-
[n le 1 select 1 else (9*n-4)*Self(n-1): n in [1..40]]; // G. C. Greubel, Oct 18 2022
-
s=1;lst={s};Do[s+=n*s;AppendTo[lst, s], {n, 13, 2*5!, 9}];lst (* Vladimir Joseph Stephan Orlovsky, Nov 08 2008 *)
Rest[FoldList[Times,1,9*Range[20]-4]/5] (* Harvey P. Dale, May 22 2013 *)
-
[9^n*rising_factorial(5/9,n)/5 for n in range(1,40)] # G. C. Greubel, Oct 18 2022
A147630
a(1) = 1; for n>1, a(n) = Product_{k = 1..n-1} (9k - 3).
Original entry on oeis.org
1, 6, 90, 2160, 71280, 2993760, 152681760, 9160905600, 632102486400, 49303993939200, 4289447472710400, 411786957380198400, 43237630524920832000, 4929089879840974848000, 606278055220439906304000, 80028703289098067632128000, 11284047163762827536130048000
Offset: 1
Cf.
A147629,
A049211,
A051232,
A045756,
A035012,
A035013,
A035017,
A035018,
A035020,
A035022,
A035023,
A053116.
-
[Round(9^n*Gamma(n+6/9)/Gamma(6/9)): n in [0..20]]; // Vincenzo Librandi, Feb 21 2015
-
s=1;lst={s};Do[s+=n*s;AppendTo[lst,s],{n,5,2*5!,9}];lst
Table[Product[9k-3,{k,1,n-1}],{n,20}] (* Harvey P. Dale, Sep 01 2016 *)
-
a(n):=n!*sum(binomial(k,n-k-1)*3^k*(-1)^(n-k-1)*binomial(n+k-1,n-1),k,1,n-1)/n; /* Vladimir Kruchinin, Apr 01 2011 */
-
a(n) = n--; prod(k=1, n, 9*k-3); \\ Michel Marcus, Feb 28 2015
A153271
Triangle T(n, k) = Product_{j=0..k} (j*n + prime(m)), with T(n, 0) = prime(m) and m = 3, read by rows.
Original entry on oeis.org
5, 5, 30, 5, 35, 315, 5, 40, 440, 6160, 5, 45, 585, 9945, 208845, 5, 50, 750, 15000, 375000, 11250000, 5, 55, 935, 21505, 623645, 21827575, 894930575, 5, 60, 1140, 29640, 978120, 39124800, 1838865600, 99298742400, 5, 65, 1365, 39585, 1464645, 65909025, 3493178325, 213083877825, 14702787569925
Offset: 0
Triangle begins as:
5;
5, 30;
5, 35, 315;
5, 40, 440, 6160;
5, 45, 585, 9945, 208845;
5, 50, 750, 15000, 375000, 11250000;
5, 55, 935, 21505, 623645, 21827575, 894930575;
Sequences related to m values:
-
m:=3;
function T(n,k)
if k eq 0 then return NthPrime(m);
else return (&*[j*n + NthPrime(m): j in [0..k]]);
end if; return T; end function;
[T(n,k): k in [0..n], n in [0..10]]; // G. C. Greubel, Dec 03 2019
-
m:=3; seq(seq(`if`(k=0, ithprime(m), mul(j*n + ithprime(m), j=0..k)), k=0..n), n=0..10); # G. C. Greubel, Dec 03 2019
-
T[n_, k_, m_]:= If[k==0, Prime[m], Product[j*n + Prime[m], {j,0,k}]];
Table[T[n,k,3], {n,0,10}, {k,0,n}]//Flatten
-
T(n,k) = my(m=3); if(k==0, prime(m), prod(j=0,k, j*n + prime(m)) ); \\ G. C. Greubel, Dec 03 2019
-
def T(n, k):
m=3
if (k==0): return nth_prime(m)
else: return product(j*n + nth_prime(m) for j in (0..k))
[[T(n, k) for k in (0..n)] for n in (0..10)] # G. C. Greubel, Dec 03 2019
A147631
9-factorial numbers (6).
Original entry on oeis.org
1, 7, 112, 2800, 95200, 4093600, 212867200, 12984899200, 908942944000, 71806492576000, 6318971346688000, 612940220628736000, 64971663386646016000, 7471741289464291840000, 926495919893572188160000, 123223957345845101025280000, 17497801943110004345589760000
Offset: 1
Cf.
A147630,
A147629,
A049211,
A051232,
A045756,
A035012,
A035013,
A035017,
A035018,
A035020,
A035022,
A035023,
A053116.
-
s=1;lst={s};Do[s+=n*s;AppendTo[lst,s],{n,6,2*5!,9}];lst
Showing 1-4 of 4 results.
Comments