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.

Previous Showing 61-70 of 95 results. Next

A342523 Heinz numbers of integer partitions with weakly increasing first quotients.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 65, 66, 67, 68, 69, 71, 73, 74, 76
Offset: 1

Views

Author

Gus Wiseman, Mar 23 2021

Keywords

Comments

Also called log-concave-up partitions.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.
The first quotients of a sequence are defined as if the sequence were an increasing divisor chain, so for example the first quotients of (6,3,1) are (1/2,1/3).

Examples

			The prime indices of 60 are {1,1,2,3}, with first quotients (1,2,3/2), so 60 is not in the sequence.
Most small numbers are in the sequence, but the sequence of non-terms together with their prime indices begins:
   18: {1,2,2}
   30: {1,2,3}
   36: {1,1,2,2}
   50: {1,3,3}
   54: {1,2,2,2}
   60: {1,1,2,3}
   70: {1,3,4}
   72: {1,1,1,2,2}
   75: {2,3,3}
   90: {1,2,2,3}
   98: {1,4,4}
  100: {1,1,3,3}
		

Crossrefs

The version counting strict divisor chains is A057567.
For multiplicities (prime signature) instead of quotients we have A304678.
For differences instead of quotients we have A325360 (count: A240026).
These partitions are counted by A342523 (strict: A342516, ordered: A342492).
The strictly increasing version is A342524.
The weakly decreasing version is A342526.
A000041 counts partitions (strict: A000009).
A000929 counts partitions with adjacent parts x >= 2y.
A001055 counts factorizations (strict: A045778, ordered: A074206).
A003238 counts chains of divisors summing to n - 1 (strict: A122651).
A167865 counts strict chains of divisors > 1 summing to n.
A318991/A318992 rank reversed partitions with/without integer quotients.
A342086 counts strict chains of divisors with strictly increasing quotients.

Programs

  • Mathematica
    primeptn[n_]:=If[n==1,{},Reverse[Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]];
    Select[Range[100],LessEqual@@Divide@@@Reverse/@Partition[primeptn[#],2,1]&]

A342530 Number of strict chains of divisors ending with n and having distinct first quotients.

Original entry on oeis.org

1, 2, 2, 3, 2, 6, 2, 6, 3, 6, 2, 12, 2, 6, 6, 9, 2, 12, 2, 12, 6, 6, 2, 28, 3, 6, 6, 12, 2, 26, 2, 14, 6, 6, 6, 31, 2, 6, 6, 28, 2, 26, 2, 12, 12, 6, 2, 52, 3, 12, 6, 12, 2, 28, 6, 28, 6, 6, 2, 66, 2, 6, 12, 25, 6, 26, 2, 12, 6, 26, 2, 76, 2, 6, 12, 12, 6, 26
Offset: 1

Views

Author

Gus Wiseman, Mar 25 2021

Keywords

Comments

The first quotients of a sequence are defined as if the sequence were an increasing divisor chain, so for example the quotients of (6,3,1) are (1/2,1/3).

Examples

			The a(1) = 1 through a(12) = 12 chains (reversed):
  1  2    3    4    5    6      7    8      9    10      11    12
     2/1  3/1  4/1  5/1  6/1    7/1  8/1    9/1  10/1    11/1  12/1
               4/2       6/2         8/2    9/3  10/2          12/2
                         6/3         8/4         10/5          12/3
                         6/2/1       8/2/1       10/2/1        12/4
                         6/3/1       8/4/1       10/5/1        12/6
                                                               12/2/1
                                                               12/3/1
                                                               12/4/1
                                                               12/4/2
                                                               12/6/1
                                                               12/6/2
Not counted under a(12) are: 12/4/2/1, 12/6/2/1, 12/6/3, 12/6/3/1.
		

Crossrefs

The version for weakly increasing first quotients is A057567.
The version for equal first quotients is A169594.
The case of chains starting with 1 is A254578.
The version for strictly increasing first quotients is A342086.
A001055 counts factorizations (strict: A045778, ordered: A074206).
A067824 counts strict chains of divisors ending with n.
A167865 counts strict chains of divisors > 1 summing to n.
A253249 counts strict chains of divisors.
A334997 counts chains of divisors of n by length.
A342495/A342529 count compositions with equal/distinct quotients.
A342496/A342514 count partitions with equal/distinct quotients.
A342515/A342520 count strict partitions with equal/distinct quotients.
A342522/A342521 rank partitions with equal/distinct quotients.

Programs

  • Mathematica
    cmi[n_]:=Prepend[Prepend[#,n]&/@Join@@cmi/@Most[Divisors[n]],{n}];
    Table[Length[Select[cmi[n],UnsameQ@@Divide@@@Partition[#,2,1]&]],{n,100}]

Formula

a(n) = Sum_{d|n} A254578(d). - Ridouane Oudra, Jun 17 2025

A348956 a(0) = 1; a(n) = Sum_{d|n, d < n} (-1)^(n/d + 1) * a(d - 1).

Original entry on oeis.org

1, 0, -1, 1, -1, 1, 0, 1, -2, 0, 0, 1, 0, 1, -1, -1, -3, 1, 3, 1, 1, 0, -1, 1, -2, 0, -1, -2, -1, 1, 3, 1, -2, 0, 2, 0, 2, 1, -4, 0, -1, 1, 1, 1, 0, -4, 0, 1, -6, 1, 2, -3, 0, 1, 5, 0, 0, 3, 0, 1, 3, 1, -4, -1, -3, 0, 3, 1, 3, -1, -1, 1, 0, 1, -3, -4, -4, 1, 5, 1, -4
Offset: 0

Views

Author

Ilya Gutkovskiy, Nov 04 2021

Keywords

Crossrefs

Programs

  • Mathematica
    a[0] = 1; a[n_] := a[n] = Sum[If[d < n, (-1)^(n/d + 1) a[d - 1], 0], {d, Divisors[n]}]; Table[a[n], {n, 0, 80}]
    nmax = 80; A[] = 0; Do[A[x] = 1 - Sum[(-x)^k A[x^k], {k, 2, nmax}] + O[x]^(nmax + 1) //Normal, nmax + 1]; CoefficientList[A[x], x]
  • PARI
    A348956(n) = if(!n,1,sumdiv(n,d,if(dA348956(d-1)*(-1)^(1 + (n/d)),0))); \\ Antti Karttunen, Nov 05 2021

Formula

G.f. A(x) satisfies: A(x) = 1 - x^2 * A(x^2) + x^3 * A(x^3) - x^4 * A(x^4) + ...

A317099 Number of series-reduced planted achiral trees whose leaves span an initial interval of positive integers appearing with multiplicities an integer partition of n.

Original entry on oeis.org

1, 3, 4, 9, 8, 19, 16, 35, 35, 54, 57, 113, 102, 155, 189, 279, 298, 447, 491, 702, 813, 1063, 1256, 1759, 1967, 2542, 3050, 3902, 4566, 5882, 6843, 8676, 10205, 12612, 14908, 18608, 21638, 26510, 31292, 38150, 44584, 54185, 63262, 76308, 89371, 106818, 124755
Offset: 1

Views

Author

Gus Wiseman, Aug 01 2018

Keywords

Comments

In these trees, achiral means that all branches directly under any given node that is not a leaf or a cover of leaves are equal, and series-reduced means that every node that is not a leaf or a cover of leaves has at least two branches.

Examples

			The a(4) = 9 trees:
  (1111), ((11)(11)), (((1)(1))((1)(1))), ((1)(1)(1)(1)),
  (1112),
  (1122), ((12)(12)),
  (1123),
  (1234).
The a(6) = 19 trees:
  (111111), ((111)(111)), (((1)(1)(1))((1)(1)(1))), ((11)(11)(11)), (((1)(1))((1)(1))((1)(1))), ((1)(1)(1)(1)(1)(1)),
  (111112),
  (111122), ((112)(112)),
  (111123),
  (111222), ((12)(12)(12)),
  (111223),
  (111234),
  (112233), ((123)(123)),
  (112234),
  (112345),
  (123456).
		

Crossrefs

Programs

  • Mathematica
    b[n_]:=1+Sum[b[n/d],{d,Rest[Divisors[n]]}];
    a[n_]:=Sum[b[GCD@@Length/@Split[ptn]],{ptn,IntegerPartitions[n]}];
    Array[a,30]

A317853 a(1) = 1; a(n > 1) = Sum_{0 < k < n} (-1)^(n - k - 1) a(n - k) Sum_{d|k} a(d).

Original entry on oeis.org

1, 1, 1, 1, 2, 2, 5, 6, 11, 14, 23, 26, 51, 70, 114, 147, 237, 314, 516, 715, 1118, 1549, 2353, 3252, 5011, 7235, 10724, 15142, 22504, 32506, 47770, 69173, 100980, 146657, 212504, 308563, 448256, 658037, 946166, 1373739, 1988283, 2919185, 4197886, 6118850
Offset: 1

Views

Author

Gus Wiseman, Aug 09 2018

Keywords

Crossrefs

Programs

  • Mathematica
    a[n_]:=a[n]=If[n==1,1,Sum[(-1)^(n-k-1)*a[n-k]*Sum[a[d],{d,Divisors[k]}],{k,n-1}]];
    Array[a,50]

A318611 Number of series-reduced powerful rooted trees with n nodes.

Original entry on oeis.org

1, 0, 1, 1, 1, 1, 2, 1, 3, 3, 4, 4, 8, 5, 11, 10, 14, 14, 24, 18, 34, 32, 46, 45, 72, 60, 103, 96, 138, 137, 212, 184, 296, 282, 403, 397, 591, 539, 830, 798, 1125, 1119, 1624, 1519, 2253, 2195, 3067, 3056, 4341, 4158, 6004, 5897, 8145, 8164, 11397, 11090
Offset: 1

Views

Author

Gus Wiseman, Aug 30 2018

Keywords

Comments

A series-reduced rooted tree is powerful if either it is a single node, or the branches of the root all appear with multiplicities greater than 1 and are themselves series-reduced powerful rooted trees.

Examples

			The a(13) = 8 series-reduced powerful rooted trees:
  ((oo)(oo)(oo)(oo))
  ((ooo)(ooo)(ooo))
  (ooo(oo)(oo)(oo))
  ((ooooo)(ooooo))
  (oo(oooo)(oooo))
  (oooo(ooo)(ooo))
  (oooooo(oo)(oo))
  (oooooooooooo)
		

Crossrefs

Programs

  • Maple
    h:= proc(n, k, t) option remember; `if`(k=0, binomial(n+t, t),
          `if`(n=0, 0, add(h(n-1, k-j, t+1), j=2..k)))
        end:
    b:= proc(n, i) option remember; `if`(n=0, 1, `if`(i<1, 0,
          add(b(n-i*j, i-1)*h(a(i), j, 0), j=0..n/i)))
        end:
    a:= n-> `if`(n<2, n, b(n-1$2)):
    seq(a(n), n=1..60);  # Alois P. Heinz, Aug 31 2018
  • Mathematica
    purt[n_]:=purt[n]=If[n==1,{{}},Join@@Table[Select[Union[Sort/@Tuples[purt/@ptn]],Min@@Length/@Split[#]>1&],{ptn,IntegerPartitions[n-1]}]];
    Table[Length[purt[n]],{n,20}]
    (* Second program: *)
    h[n_, k_, t_] := h[n, k, t] = If[k == 0, Binomial[n + t, t],
         If[n == 0, 0, Sum[h[n - 1, k - j, t + 1], {j, 2, k}]]];
    b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0,
         Sum[b[n - i*j, i - 1]*h[a[i], j, 0], {j, 0, n/i}]]];
    a[n_] := If[n < 2, n, b[n - 1, n - 1]];
    Array[a, 60] (* Jean-François Alcover, May 19 2021, after Alois P. Heinz *)

Extensions

a(41)-a(56) from Alois P. Heinz, Aug 31 2018

A331991 Number of semi-lone-child-avoiding achiral rooted trees with n vertices.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 3, 1, 3, 2, 4, 1, 5, 1, 5, 4, 4, 1, 7, 1, 7, 5, 6, 1, 7, 3, 7, 5, 7, 1, 13, 1, 8, 6, 6, 6, 10, 1, 9, 7, 9, 1, 15, 1, 12, 12, 8, 1, 12, 4, 13, 6, 11, 1, 15, 7, 13, 9, 9, 1, 17, 1, 15, 15, 9, 8, 21, 1, 13, 8, 16, 1, 18, 1, 12, 16, 11, 8, 21, 1
Offset: 1

Views

Author

Gus Wiseman, Feb 06 2020

Keywords

Comments

A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless that child is an endpoint/leaf.
In an achiral rooted tree, the branches of any given vertex are all equal.

Examples

			The a(n) trees for n = 2, 3, 5, 7, 11, 13:
  (o)  (oo)  (oooo)    (oooooo)     (oooooooooo)        (oooooooooooo)
             ((o)(o))  ((oo)(oo))   ((oooo)(oooo))      ((ooooo)(ooooo))
                       ((o)(o)(o))  ((o)(o)(o)(o)(o))   ((ooo)(ooo)(ooo))
                                    (((o)(o))((o)(o)))  ((oo)(oo)(oo)(oo))
                                                        ((o)(o)(o)(o)(o)(o))
		

Crossrefs

Matula-Goebel numbers of these trees are A331992.
The fully lone-child-avoiding case is A167865.
The semi-achiral version is A331933.
Not requiring achirality gives A331934.
The identity tree version is A331964.
The semi-identity tree version is A331993.
Achiral rooted trees are counted by A003238.
Lone-child-avoiding semi-achiral trees are A320268.

Programs

  • Mathematica
    ab[n_]:=If[n<=2,1,Sum[ab[d],{d,Most[Divisors[n-1]]}]];
    Array[ab,100]

Formula

a(1) = a(2) = 1; a(n + 1) = Sum_{d|n, d 1.
G.f. A(x) satisfies: A(x) = x * (1 + (1/(1 + x)) * Sum_{k>=1} A(x^k)). - Ilya Gutkovskiy, Feb 25 2020

A331992 Matula-Goebel numbers of semi-lone-child-avoiding achiral rooted trees.

Original entry on oeis.org

1, 2, 4, 8, 9, 16, 27, 32, 49, 64, 81, 128, 243, 256, 343, 361, 512, 529, 729, 1024, 2048, 2187, 2401, 2809, 4096, 6561, 6859, 8192, 10609, 12167, 16384, 16807, 17161, 19683, 32768, 51529, 59049, 65536, 96721, 117649, 130321, 131072, 148877, 175561, 177147
Offset: 1

Views

Author

Gus Wiseman, Feb 06 2020

Keywords

Comments

A rooted tree is semi-lone-child-avoiding if there are no vertices with exactly one child unless that child is an endpoint/leaf.
In an achiral rooted tree, the branches of any given vertex are all equal.
The Matula-Goebel number of a rooted tree is the product of primes indexed by the Matula-Goebel numbers of the branches of its root, which gives a bijective correspondence between positive integers and unlabeled rooted trees.
Consists of one, two, and all numbers of the form prime(j)^k where k > 1 and j is already in the sequence.

Examples

			The sequence of all semi-lone-child-avoiding achiral rooted trees together with their Matula-Goebel numbers begins:
     1: o
     2: (o)
     4: (oo)
     8: (ooo)
     9: ((o)(o))
    16: (oooo)
    27: ((o)(o)(o))
    32: (ooooo)
    49: ((oo)(oo))
    64: (oooooo)
    81: ((o)(o)(o)(o))
   128: (ooooooo)
   243: ((o)(o)(o)(o)(o))
   256: (oooooooo)
   343: ((oo)(oo)(oo))
   361: ((ooo)(ooo))
   512: (ooooooooo)
   529: (((o)(o))((o)(o)))
   729: ((o)(o)(o)(o)(o)(o))
  1024: (oooooooooo)
		

Crossrefs

Except for two, a subset of A025475 (nonprime prime powers).
Not requiring achirality gives A331935.
The semi-achiral version is A331936.
The fully-chiral version is A331963.
The semi-chiral version is A331994.
The non-semi version is counted by A331967.
The enumeration of these trees by vertices is A331991.
Achiral rooted trees are counted by A003238.
MG-numbers of achiral rooted trees are A214577.

Programs

  • Mathematica
    msQ[n_]:=n<=2||!PrimeQ[n]&&Length[FactorInteger[n]]<=1&&And@@msQ/@PrimePi/@First/@FactorInteger[n];
    Select[Range[10000],msQ]

Formula

Intersection of A214577 (achiral) and A331935 (semi-lone-child-avoiding).

A342498 Number of integer partitions of n with strictly increasing first quotients.

Original entry on oeis.org

1, 1, 2, 2, 4, 4, 5, 6, 8, 9, 12, 12, 14, 16, 18, 20, 24, 26, 27, 30, 35, 37, 45, 47, 52, 56, 61, 65, 72, 77, 83, 90, 95, 99, 109, 117, 127, 135, 144, 151, 164, 172, 181, 197, 209, 222, 239, 249, 263, 280, 297, 310, 332, 349, 368, 391, 412, 433, 457, 480, 503
Offset: 0

Views

Author

Gus Wiseman, Mar 17 2021

Keywords

Comments

Also the number of reversed integer partitions of n with strictly increasing first quotients.
The first quotients of a sequence are defined as if the sequence were an increasing divisor chain, so for example the first quotients of (6,3,1) are (1/2,1/3).

Examples

			The partition y = (13,7,2,1) has first quotients (7/13,2/7,1/2) so is not counted under a(23). However, the first differences (-6,-5,-1) are strictly increasing, so y is counted under A240027(23).
The a(1) = 1 through a(9) = 9 partitions:
  (1)  (2)   (3)   (4)    (5)    (6)    (7)    (8)    (9)
       (11)  (21)  (22)   (32)   (33)   (43)   (44)   (54)
                   (31)   (41)   (42)   (52)   (53)   (63)
                   (211)  (311)  (51)   (61)   (62)   (72)
                                 (411)  (322)  (71)   (81)
                                        (511)  (422)  (522)
                                               (521)  (621)
                                               (611)  (711)
                                                      (5211)
		

Crossrefs

The version for differences instead of quotients is A240027.
The ordered version is A342493.
The weakly increasing version is A342497.
The strictly decreasing version is A342499.
The strict case is A342517.
The Heinz numbers of these partitions are A342524.
A000005 counts constant partitions.
A000009 counts strict partitions.
A000041 counts partitions.
A001055 counts factorizations.
A003238 counts chains of divisors summing to n - 1 (strict: A122651).
A074206 counts ordered factorizations.
A167865 counts strict chains of divisors > 1 summing to n.
A342096 counts partitions with adjacent x < 2y (strict: A342097).
A342098 counts partitions with adjacent parts x > 2y.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Less@@Divide@@@Reverse/@Partition[#,2,1]&]],{n,0,30}]

A342499 Number of integer partitions of n with strictly decreasing first quotients.

Original entry on oeis.org

1, 1, 2, 2, 3, 4, 5, 5, 7, 9, 10, 11, 14, 15, 18, 20, 23, 26, 31, 34, 39, 42, 45, 51, 58, 65, 70, 78, 83, 91, 102, 111, 122, 133, 145, 158, 170, 182, 202, 217, 231, 248, 268, 285, 307, 332, 354, 374, 404, 436, 468, 502, 537, 576, 618, 654, 694, 737, 782, 830
Offset: 0

Views

Author

Gus Wiseman, Mar 17 2021

Keywords

Comments

Also the number of reversed partitions of n with strictly decreasing first quotients.
The first quotients of a sequence are defined as if the sequence were an increasing divisor chain, so for example the first quotients of (6,3,1) are (1/2,1/3).

Examples

			The partition (6,6,3,1) has first quotients (1,1/2,1/3) so is counted under a(16).
The a(1) = 1 through a(9) = 9 partitions:
  (1)  (2)   (3)   (4)   (5)    (6)    (7)    (8)    (9)
       (11)  (21)  (22)  (32)   (33)   (43)   (44)   (54)
                   (31)  (41)   (42)   (52)   (53)   (63)
                         (221)  (51)   (61)   (62)   (72)
                                (321)  (331)  (71)   (81)
                                              (332)  (432)
                                              (431)  (441)
                                                     (531)
                                                     (3321)
		

Crossrefs

The version for differences instead of quotients is A320470.
The ordered version is A342494.
The strictly increasing version is A342498.
The weakly decreasing version is A342513.
The strict case is A342518.
The Heinz numbers of these partitions are listed by A342525.
A000005 counts constant partitions.
A000009 counts strict partitions.
A000041 counts partitions.
A001055 counts factorizations.
A003238 counts chains of divisors summing to n - 1 (strict: A122651).
A074206 counts ordered factorizations.
A167865 counts strict chains of divisors > 1 summing to n.
A342096 counts partitions with adjacent x < 2y (strict: A342097).
A342098 counts partitions with adjacent parts x > 2y.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Greater@@Divide@@@Reverse/@Partition[#,2,1]&]],{n,0,30}]
Previous Showing 61-70 of 95 results. Next