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.

Showing 1-4 of 4 results.

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

Views

Author

Keywords

Crossrefs

Programs

  • Magma
    [n le 1 select 1 else (9*n-4)*Self(n-1): n in [1..40]]; // G. C. Greubel, Oct 18 2022
    
  • Mathematica
    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 *)
  • SageMath
    [9^n*rising_factorial(5/9,n)/5 for n in range(1,40)] # G. C. Greubel, Oct 18 2022

Formula

5*a(n) = (9*n-4)(!^9) := Product_{j=1..n} (9*j-4).
E.g.f.: (-1+(1-9*x)^(-5/9))/5.
From G. C. Greubel, Oct 18 2022: (Start)
a(n) = (1/5) * 9^n * Pochhammer(n, 5/9).
a(n) = (9*n-4)*a(n-1). (End)
From Amiram Eldar, Dec 21 2022: (Start)
a(n) = A147629(n+1)/5.
Sum_{n>=1} 1/a(n) = 5*(e/9^4)^(1/9)*(Gamma(5/9) - Gamma(5/9, 1/9)). (End)

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

Views

Author

Keywords

Comments

Original name was: 9-factorial numbers (5).

Crossrefs

Programs

  • Magma
    [Round(9^n*Gamma(n+6/9)/Gamma(6/9)): n in [0..20]]; // Vincenzo Librandi, Feb 21 2015
    
  • Mathematica
    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 *)
  • Maxima
    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 */
    
  • PARI
    a(n) = n--; prod(k=1, n, 9*k-3); \\ Michel Marcus, Feb 28 2015

Formula

a(n+1) = Sum_{k, 0<=k<=n}A132393(n,k)*6^k*9^(n-k). - Philippe Deléham, Nov 09 2008
a(n) = n!*(Sum_{k=1..n-1} binomial(k,n-k-1)*3^k*(-1)^(n-k-1)*binomial(n+k-1,n-1))/n for n>1, also a(n) = n!*A097188(n-1). - Vladimir Kruchinin, Apr 01 2011
a(n) = (-3)^n*sum_{k=0..n} 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
a(n) = round(9^n * Gamma(n+6/9) / Gamma(6/9)). - Vincenzo Librandi, Feb 21 2015
Sum_{n>=1} 1/a(n) = 1 + (e/9^3)^(1/9)*(Gamma(2/3) - Gamma(2/3, 1/9)). - Amiram Eldar, Dec 21 2022

Extensions

New name from Peter Bala, Feb 20 2015
More terms from 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

Views

Author

Roger L. Bagula, Dec 22 2008

Keywords

Comments

Row sums are {5, 35, 355, 6645, 219425, 11640805, 917404295, 101177741765, 14919432040765, 2839006665525525, 677815000136926955, ...}.

Examples

			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;
		

Crossrefs

Cf. A153271 (m=2), this sequence (m=3), A153272 (m=4).
Sequences related to m values:

Programs

  • Magma
    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
    
  • Maple
    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
  • Mathematica
    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
  • PARI
    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
    
  • Sage
    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

Formula

T(n, k) = Product_{j=0..k} (j*n + prime(m)), with T(n, 0) = prime(m) and m = 3.

Extensions

Edited by 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

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    s=1;lst={s};Do[s+=n*s;AppendTo[lst,s],{n,6,2*5!,9}];lst

Formula

a(n+1) = Sum_{k=0..n} A132393(n,k)*7^k*9^(n-k). - Philippe Deléham, Nov 09 2008
a(n) = (-2)^n*Sum_{k=0..n} (9/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/9^2)^(1/9)*(Gamma(7/9) - Gamma(7/9, 1/9)). - Amiram Eldar, Dec 21 2022
Showing 1-4 of 4 results.