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

A375399 Numbers k such that the minima of maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are not distinct.

Original entry on oeis.org

4, 8, 9, 12, 16, 20, 24, 25, 27, 28, 32, 36, 40, 44, 45, 48, 49, 52, 54, 56, 60, 63, 64, 68, 72, 76, 80, 81, 84, 88, 92, 96, 99, 100, 104, 108, 112, 116, 117, 120, 121, 124, 125, 128, 132, 135, 136, 140, 144, 148, 152, 153, 156, 160, 162, 164, 168, 169, 171
Offset: 1

Views

Author

Gus Wiseman, Aug 16 2024

Keywords

Comments

An anti-run is a sequence with no adjacent equal terms.
The minima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each.
Note the prime factors can alternatively be taken in weakly decreasing order.

Examples

			The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs ((2),(2,3,5),(5)), with minima (2,2,5), so 300 is in the sequence.
The prime factors of 450 are {2,3,3,5,5}, with maximal anti-runs ((2,3),(3,5),(5)), with minima (2,3,5), so 450 is not in the sequence.
The terms together with their prime indices begin:
     4: {1,1}
     8: {1,1,1}
     9: {2,2}
    12: {1,1,2}
    16: {1,1,1,1}
    20: {1,1,3}
    24: {1,1,1,2}
    25: {3,3}
    27: {2,2,2}
    28: {1,1,4}
    32: {1,1,1,1,1}
    36: {1,1,2,2}
    40: {1,1,1,3}
    44: {1,1,5}
    45: {2,2,3}
    48: {1,1,1,1,2}
		

Crossrefs

The complement for compositions is A374638, counted by A374518.
A version for compositions is A374639, counted by A374678.
Positions of non-strict rows in A375128, sums A374706, ranks A375400.
For identical instead of strict we have A375397, counted by A375405.
The complement is A375398, counted by A375134.
The complement for maxima instead of minima is A375402, counted by A375133.
For maxima instead of minima we have A375403, counted by A375401.
Partitions (or reversed partitions) of this type are counted by A375404.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A number's prime factors (A027746, reverse A238689) have sum A001414, min A020639, max A006530.
A number's prime indices (A112798, reverse A296150) have sum A056239, min A055396, max A061395.
Both have length A001222, distinct A001221.

Programs

  • Mathematica
    Select[Range[100],!UnsameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]

A375401 Number of integer partitions of n whose maximal anti-runs do not all have different maxima.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 6, 7, 12, 16, 25, 33, 48, 63, 88, 116, 157, 204, 272, 349, 456, 581, 749, 946, 1205, 1511, 1904, 2371, 2960, 3661, 4538, 5577, 6862, 8389, 10257, 12472, 15164, 18348, 22192, 26731, 32177, 38593, 46254, 55256, 65952, 78500, 93340, 110706
Offset: 0

Views

Author

Gus Wiseman, Aug 17 2024

Keywords

Comments

An anti-run is a sequence with no adjacent equal terms. The maxima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the greatest term of each.

Examples

			The partition y = (3,2,2,1) has maximal ant-runs ((3,2),(2,1)), with maxima (3,2), so y is not counted under a(8).
The a(2) = 1 through a(8) = 12 partitions:
  (11)  (111)  (22)    (221)    (33)      (331)      (44)
               (1111)  (2111)   (222)     (2221)     (332)
                       (11111)  (2211)    (4111)     (2222)
                                (3111)    (22111)    (3311)
                                (21111)   (31111)    (5111)
                                (111111)  (211111)   (22211)
                                          (1111111)  (32111)
                                                     (41111)
                                                     (221111)
                                                     (311111)
                                                     (2111111)
                                                     (11111111)
		

Crossrefs

For identical instead of distinct we have A239955, ranks A073492.
The complement is counted by A375133, ranks A375402.
The complement for minima instead of maxima is A375134, ranks A375398.
These partitions have Heinz numbers A375403.
For minima instead of maxima we have A375404, ranks A375399.
The reverse for identical instead of distinct is A375405, ranks A375397.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Max/@Split[#,UnsameQ]&]],{n,0,30}]

A375404 Number of integer partitions of n whose minima of maximal anti-runs are not all different.

Original entry on oeis.org

0, 0, 1, 1, 3, 3, 7, 9, 14, 19, 30, 38, 56, 73, 102, 133, 179, 231, 307, 392, 511, 647, 831, 1046, 1328, 1658, 2084, 2586, 3219, 3970, 4909, 6016, 7386, 9005, 10988, 13330, 16175, 19531, 23580, 28350, 34067, 40788, 48809, 58215, 69383, 82461, 97917, 115976
Offset: 0

Views

Author

Gus Wiseman, Aug 17 2024

Keywords

Comments

An anti-run is a sequence with no adjacent equal terms. The minima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each.
Also the number of reversed integer partitions of n such that the minima of maximal anti-runs are not all different.

Examples

			The a(0) = 0 through a(8) = 14 reversed partitions:
  .  .  (11)  (111)  (22)    (113)    (33)      (115)      (44)
                     (112)   (1112)   (114)     (223)      (116)
                     (1111)  (11111)  (222)     (1114)     (224)
                                      (1113)    (1123)     (1115)
                                      (1122)    (1222)     (1124)
                                      (11112)   (11113)    (1133)
                                      (111111)  (11122)    (2222)
                                                (111112)   (11114)
                                                (1111111)  (11123)
                                                           (11222)
                                                           (111113)
                                                           (111122)
                                                           (1111112)
                                                           (11111111)
		

Crossrefs

The complement for maxima instead of minima is A375133, ranks A375402.
The complement is counted by A375134, ranks A375398.
These partitions are ranked by A375399.
For maxima instead of minima we have A375401, ranks A375403.
For identical instead of distinct we have A375405, ranks A375397.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], !UnsameQ@@Min/@Split[#,UnsameQ]&]],{n,0,30}]

A375396 Numbers not divisible by the square of any prime factor except (possibly) the least. Hooklike numbers.

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, 30, 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, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71
Offset: 1

Views

Author

Gus Wiseman, Aug 16 2024

Keywords

Comments

Also numbers k such that the minima of the maximal anti-runs in the weakly increasing sequence of prime factors of k (with multiplicity) are identical. Here, an anti-run is a sequence with no adjacent equal parts, and the minima of the maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each. Note the prime factors can alternatively be taken in weakly decreasing order.
The complement is a superset of A036785 = products of a squarefree number and a prime power.
The asymptotic density of this sequence is (1/zeta(2)) * (1 + Sum_{p prime} (1/(p^2-p)) / Product_{primes q <= p} (1 + 1/q)) = 0.884855661165... . - Amiram Eldar, Oct 26 2024

Examples

			The prime factors of 300 are {2,2,3,5,5}, with maximal anti-runs {{2},{2,3,5},{5}}, with minima (2,2,5), so 300 is not in the sequence.
		

Crossrefs

The complement is a superset of A036785.
For maxima instead of minima we have A065200, counted by A034296.
The complement for maxima is A065201, counted by A239955.
Partitions of this type are counted by A115029.
A version for compositions is A374519, counted by A374517.
Also positions of identical rows in A375128, sums A374706, ranks A375400.
The complement is A375397, counted by A375405.
For distinct instead of identical minima we have A375398, counts A375134.
The complement for distinct minima is A375399, counted by A375404.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A011782 comps counts compositions.
A number's prime factors (A027746, reverse A238689) have sum A001414, min A020639, max A006530.
A number's prime indices (A112798, reverse A296150) have sum A056239, min A055396, max A061395.
Both have length A001222, distinct A001221.
See the formula section for the relationships with A005117, A028234.

Programs

  • Mathematica
    Select[Range[100],SameQ@@Min /@ Split[Flatten[ConstantArray@@@FactorInteger[#]],UnsameQ]&]
  • PARI
    is(k) = if(k > 1, my(e = factor(k)[, 2]); vecprod(e) == e[1], 1); \\ Amiram Eldar, Oct 26 2024

Formula

{a(n)} = {k >= 1 : A028234(k) is in A005117}. - Peter Munn, May 09 2025

A375405 Number of integer partitions of n with a repeated part other than the least.

Original entry on oeis.org

0, 0, 0, 0, 0, 1, 1, 3, 5, 8, 13, 20, 29, 42, 62, 83, 117, 158, 214, 283, 377, 488, 641, 823, 1058, 1345, 1714, 2154, 2713, 3387, 4222, 5230, 6474, 7959, 9782, 11956, 14591, 17737, 21529, 26026, 31422, 37811, 45425, 54418, 65097, 77652, 92510, 109943, 130468
Offset: 0

Views

Author

Gus Wiseman, Aug 17 2024

Keywords

Comments

Also partitions whose minima of maximal anti-runs are not identical. An anti-run is a sequence with no adjacent equal terms. The minima of maximal anti-runs in a sequence are obtained by splitting it into maximal anti-run subsequences and taking the least term of each.

Examples

			The a(0) = 0 through a(10) = 13 partitions:
  .  .  .  .  .  (221)  (2211)  (331)    (332)     (441)      (442)
                                (2221)   (3221)    (3321)     (3322)
                                (22111)  (3311)    (4221)     (3331)
                                         (22211)   (22221)    (4411)
                                         (221111)  (32211)    (5221)
                                                   (33111)    (32221)
                                                   (222111)   (33211)
                                                   (2211111)  (42211)
                                                              (222211)
                                                              (322111)
                                                              (331111)
                                                              (2221111)
                                                              (22111111)
		

Crossrefs

The complement for maxima instead of minima is A034296.
The complement is counted by A115029, ranks A375396.
For maxima instead of minima we have A239955, ranks A073492.
These partitions have ranks A375397.
For distinct instead of identical we have A375404, ranks A375399.
A000041 counts integer partitions, strict A000009.
A003242 counts anti-run compositions, ranks A333489.
A055887 counts sequences of partitions with total sum n.
A375128 lists minima of maximal anti-runs of prime indices, sums A374706.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], !SameQ@@Min/@Split[#,UnsameQ]&]],{n,0,30}]
    - or -
    Table[Length[Select[IntegerPartitions[n], !UnsameQ@@DeleteCases[#,Min@@#]&]],{n,0,30}]
  • PARI
    A_x(N) = {my(x='x+O('x^N), f=sum(i=1,N,sum(j=i+1,N-i, ((x^(i+(2*j)))/(1-x^i))*prod(k=i+1,N-i-(2*j), if(kJohn Tyler Rascoe, Aug 21 2024

Formula

G.f.: Sum_{i>0} (Sum_{j>i} ( (x^(i+(2*j)))/(1-x^i) * Product_{k>=i} (1-[kJohn Tyler Rascoe, Aug 21 2024
Showing 1-5 of 5 results.