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.

A371177 Positive integers whose prime indices include all distinct divisors of all prime indices.

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 12, 16, 18, 20, 22, 24, 30, 32, 34, 36, 40, 42, 44, 48, 50, 54, 60, 62, 64, 66, 68, 72, 80, 82, 84, 88, 90, 96, 100, 102, 108, 110, 118, 120, 124, 126, 128, 132, 134, 136, 144, 150, 160, 162, 164, 166, 168, 170, 176, 180, 186, 192, 198, 200
Offset: 1

Views

Author

Gus Wiseman, Mar 18 2024

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.
Also positive integers with as many distinct prime factors (A001221) as distinct divisors of prime indices (A370820).

Examples

			The terms together with their prime indices begin:
    1: {}
    2: {1}
    4: {1,1}
    6: {1,2}
    8: {1,1,1}
   10: {1,3}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   22: {1,5}
   24: {1,1,1,2}
   30: {1,2,3}
   32: {1,1,1,1,1}
   34: {1,7}
   36: {1,1,2,2}
   40: {1,1,1,3}
   42: {1,2,4}
   44: {1,1,5}
   48: {1,1,1,1,2}

Crossrefs

The LHS is A001221, distinct case of A001222.
The RHS is A370820, for prime factors A303975.
For bigomega on the LHS we have A370802, counted by A371130.
For divisors on the LHS we have A371165, counted by A371172.
Partitions of this type are counted by A371178, strict A371128.
The complement is A371179, counted by A371132.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
A305148 counts partitions without divisors, strict A303362, ranks A316476.
Cf. A000837, A003963, A239312, A285573, A355529, A370813, A371168.

Programs

  • Mathematica
    Select[Range[100],PrimeNu[#]==Length[Union @@ Divisors/@PrimePi/@First/@If[#==1,{},FactorInteger[#]]]&]

Formula

A001221(a(n)) = A370820(a(n)).

A371132 Number of integer partitions of n with fewer distinct parts than distinct divisors of parts.

Original entry on oeis.org

0, 0, 1, 1, 2, 3, 5, 6, 10, 14, 21, 28, 40, 53, 73, 96, 130, 170, 223, 288, 375, 480, 616, 780, 990, 1245, 1567, 1954, 2440, 3024, 3745, 4610, 5674, 6947, 8499, 10349, 12591, 15258, 18468, 22277, 26841, 32238, 38673, 46262, 55278, 65881, 78423, 93136, 110477
Offset: 0

Views

Author

Gus Wiseman, Mar 17 2024

Keywords

Comments

The Heinz numbers of these partitions are given by A371179.

Examples

			The partition (4,3,1,1) has 3 distinct parts {1,3,4} and 4 distinct divisors of parts {1,2,3,4}, so is counted under a(9).
The a(0) = 0 through a(9) = 14 partitions:
  .  .  (2)  (3)  (4)   (5)   (6)    (7)     (8)      (9)
                  (22)  (32)  (33)   (43)    (44)     (54)
                        (41)  (42)   (52)    (53)     (63)
                              (222)  (61)    (62)     (72)
                              (411)  (322)   (332)    (81)
                                     (4111)  (422)    (333)
                                             (431)    (432)
                                             (611)    (441)
                                             (2222)   (522)
                                             (41111)  (621)
                                                      (3222)
                                                      (4311)
                                                      (6111)
                                                      (411111)

Crossrefs

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
The complement counting all parts on the LHS is A371172, ranks A371165.
Counting all parts on the LHS gives A371173, ranks A371168.
The complement is counted by A371178, ranks A371177.
These partitions are ranked by A371179.
The strict case is A371180, complement A371128.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Cf. A003963, A239312, A319055, A355740, A370802, A370803, A370808, A370813, A371130, A371171.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],Length[Union[#]] < Length[Union@@Divisors/@#]&]],{n,0,30}]

A371180 Number of strict integer partitions of n with fewer parts than distinct divisors of parts.

Original entry on oeis.org

0, 0, 1, 1, 1, 3, 2, 4, 4, 7, 8, 10, 12, 15, 19, 22, 29, 33, 40, 47, 57, 68, 81, 95, 110, 129, 152, 178, 207, 240, 277, 317, 365, 422, 486, 558, 632, 723, 824, 940, 1067, 1210, 1371, 1544, 1751, 1977, 2233, 2508, 2820, 3162, 3555, 3983, 4465, 4990, 5571, 6224
Offset: 0

Views

Author

Gus Wiseman, Mar 18 2024

Keywords

Examples

			The strict partition (6,4,2,1) has 4 parts and 5 distinct divisors of parts {1,2,3,4,5}, so is counted under a(13).
The a(2) = 1 through a(11) = 10 partitions:
  (2)  (3)  (4)  (5)    (6)    (7)    (8)      (9)      (10)     (11)
                 (3,2)  (4,2)  (4,3)  (5,3)    (5,4)    (6,4)    (6,5)
                 (4,1)         (5,2)  (6,2)    (6,3)    (7,3)    (7,4)
                               (6,1)  (4,3,1)  (7,2)    (8,2)    (8,3)
                                               (8,1)    (9,1)    (9,2)
                                               (4,3,2)  (5,3,2)  (10,1)
                                               (6,2,1)  (5,4,1)  (5,4,2)
                                                        (6,3,1)  (6,3,2)
                                                                 (6,4,1)
                                                                 (8,2,1)

Crossrefs

The LHS is represented by A001221, distinct case of A001222.
The RHS is represented by A370820, for prime factors A303975.
The version for equality is A371128.
The non-strict version is A371132, ranks A371179.
The non-strict complement is A371178, ranks A371177.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length.
Cf. A003963, A239312, A319055, A355529, A370803, A370808, A370813, A371130 (A370802), A371171, A371172 (A371165), A371173 (A371168).

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&Length[Union[#]] < Length[Union@@Divisors/@#]&]],{n,0,30}]
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.