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-3 of 3 results.

A299023 Number of compositions of n whose standard factorization into Lyndon words has all strict compositions as factors.

Original entry on oeis.org

1, 2, 4, 7, 12, 23, 38, 66, 112, 193, 319, 539, 887, 1466, 2415, 3951, 6417, 10428, 16817, 27072, 43505, 69560, 110916, 176469, 279893, 442742, 698919, 1100898, 1729530, 2712134, 4244263, 6628174, 10332499, 16077835, 24972415, 38729239, 59958797, 92685287
Offset: 1

Views

Author

Gus Wiseman, Jan 31 2018

Keywords

Examples

			The a(5) = 12 compositions:
      (5) = (5)
     (41) = (4)*(1)
     (14) = (14)
     (32) = (3)*(2)
     (23) = (23)
    (311) = (3)*(1)*(1)
    (131) = (13)*(1)
    (221) = (2)*(2)*(1)
    (212) = (2)*(12)
   (2111) = (2)*(1)*(1)*(1)
   (1211) = (12)*(1)*(1)
  (11111) = (1)*(1)*(1)*(1)*(1)
Not included:
    (113) = (113)
    (122) = (122)
   (1121) = (112)*(1)
   (1112) = (1112)

Links

Crossrefs

Cf. A001045, A032020, A032153, A034691, A049311, A059966, A089259, A098407, A116540, A185700, A270995, A296373, A299024, A299026, A299027.

Programs

  • Mathematica
    nn=50;
ser=Product[1/(1-x^n)^Total[(Length[#]-1)!&/@Select[IntegerPartitions[n],UnsameQ@@#&]],{n,nn}];
Table[SeriesCoefficient[ser,{x,0,n}],{n,nn}]
  • PARI
    EulerT(v)={Vec(exp(x*Ser(dirmul(v,vector(#v,n,1/n))))-1, -#v)}
seq(N)={EulerT(Vec(sum(n=1, N-1, (n-1)!*x^(n*(n+1)/2)/prod(k=1, n, 1-x^k + O(x^N)))))} \\ Andrew Howroyd, Dec 01 2018

Formula

Euler transform of A032153.

A299024 Number of compositions of n whose standard factorization into Lyndon words has distinct strict compositions as factors.

Original entry on oeis.org

1, 1, 3, 4, 7, 13, 21, 34, 58, 98, 158, 258, 421, 676, 1108, 1777, 2836, 4544, 7220, 11443, 18215, 28729, 45203, 71139, 111518, 174402, 272367, 424892, 660563, 1025717, 1590448, 2460346, 3800816, 5862640, 9026963, 13885425, 21321663, 32695098, 50073855
Offset: 1

Views

Author

Gus Wiseman, Jan 31 2018

Keywords

Examples

			The a(5) = 7 compositions:
      (5) = (5)
     (41) = (4)*(1)
     (14) = (14)
     (32) = (3)*(2)
     (23) = (23)
    (131) = (13)*(1)
    (212) = (2)*(12)
Not included:
    (311) = (3)*(1)*(1)
    (113) = (113)
    (221) = (2)*(2)*(1)
    (122) = (122)
   (2111) = (2)*(1)*(1)*(1)
   (1211) = (12)*(1)*(1)
   (1121) = (112)*(1)
   (1112) = (1112)
  (11111) = (1)*(1)*(1)*(1)*(1)

Links

Crossrefs

Cf. A001045, A032020, A032153, A034691, A049311, A050342, A059966, A089259, A098407, A116540, A185700, A270995, A283877, A292432, A296373, A299023, A299026, A299027.

Programs

  • Mathematica
    nn=50;
ser=Product[(1+x^n)^Total[(Length[#]-1)!&/@Select[IntegerPartitions[n],UnsameQ@@#&]],{n,nn}];
Table[SeriesCoefficient[ser,{x,0,n}],{n,nn}]
  • PARI
    WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
seq(N)={WeighT(Vec(sum(n=1, N-1, (n-1)!*x^(n*(n+1)/2)/prod(k=1, n, 1-x^k + O(x^N)))))} \\ Andrew Howroyd, Dec 01 2018

Formula

Weigh transform of A032153.

A299027 Number of compositions of n whose standard factorization into Lyndon words has all distinct weakly increasing factors.

Original entry on oeis.org

1, 1, 3, 5, 11, 20, 38, 69, 125, 225, 400, 708, 1244, 2176, 3779, 6532, 11229, 19223, 32745, 55555, 93875, 158025, 265038, 443009, 738026, 1225649, 2029305, 3350167, 5515384, 9055678, 14830076, 24226115, 39480306, 64190026, 104130753, 168556588, 272268482
Offset: 1

Views

Author

Gus Wiseman, Feb 01 2018

Keywords

Examples

			The a(5) = 11 compositions:
      (5) = (5)
     (41) = (4)*(1)
     (14) = (14)
     (32) = (3)*(2)
     (23) = (23)
    (131) = (13)*(1)
    (113) = (113)
    (212) = (2)*(12)
    (122) = (122)
   (1121) = (112)*(1)
   (1112) = (1112)
Not included:
    (311) = (3)*(1)*(1)
    (221) = (2)*(2)*(1)
   (2111) = (2)*(1)*(1)*(1)
   (1211) = (12)*(1)*(1)
  (11111) = (1)*(1)*(1)*(1)*(1)

Links

Crossrefs

Cf. A001045, A032153, A034691, A049311, A059966, A098407, A116540, A185700, A270995, A283877, A292432, A293993, A296373, A299023, A299024, A299026.

Programs

  • Mathematica
    nn=50;
ser=Product[(1+x^n)^(PartitionsP[n]-DivisorSigma[0,n]+1),{n,nn}];
Table[SeriesCoefficient[ser,{x,0,n}],{n,nn}]
  • PARI
    WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v,n,(-1)^(n-1)/n))))-1,-#v)}
seq(n)={WeighT(vector(n, n, numbpart(n) - numdiv(n) + 1))} \\ Andrew Howroyd, Dec 01 2018

Formula

Weigh transform of A167934.
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.