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 51-60 of 75 results. Next

A371169 Positive integers with at least as many prime factors (A001222) as distinct divisors of prime indices (A370820).

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 10, 12, 16, 18, 20, 22, 24, 25, 27, 28, 30, 32, 34, 36, 40, 42, 44, 45, 48, 50, 54, 56, 60, 62, 63, 64, 66, 68, 72, 75, 80, 81, 82, 84, 88, 90, 92, 96, 98, 99, 100, 102, 104, 108, 110, 112, 118, 120, 121, 124, 125, 126, 128, 132, 134, 135
Offset: 1

Views

Author

Gus Wiseman, Mar 16 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.

Examples

			The terms together with their prime indices begin:
     1: {}
     2: {1}
     4: {1,1}
     6: {1,2}
     8: {1,1,1}
     9: {2,2}
    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}
    25: {3,3}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}
    32: {1,1,1,1,1}
    34: {1,7}
    36: {1,1,2,2}
		

Crossrefs

The strict version is A370348 counted by A371171.
The case of equality is A370802, counted by A371130, strict A371128.
The RHS is A370820, for prime factors instead of divisors A303975.
The complement is A371168, counted by A371173.
The opposite version is A371170.
The version for prime factors instead of divisors on the RHS is A319899.
Choosable partitions: A239312 (A368110), A355740 (A370320), A370592 (A368100), A370593 (A355529).
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, indices A112798, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.

Programs

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

A355537 Number of ways to choose a sequence of prime factors, one of each integer from 2 to n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 2, 2, 2, 4, 4, 8, 8, 16, 32, 32, 32, 64, 64, 128, 256, 512, 512, 1024, 1024, 2048, 2048, 4096, 4096, 12288, 12288, 12288, 24576, 49152, 98304, 196608, 196608, 393216, 786432, 1572864, 1572864, 4718592, 4718592, 9437184, 18874368, 37748736
Offset: 1

Views

Author

Gus Wiseman, Jul 20 2022

Keywords

Comments

Also partial products of A001221 without the first term 0, sum A013939.
For initial terms up to n = 29 we have a(n) = 2^A355538(n). The first non-power of 2 is a(30) = 12288.

Examples

			The a(n) choices for n = 2, 6, 10, 12, with prime(k) replaced by k:
  (1)  (12131)  (121314121)  (12131412151)
       (12132)  (121314123)  (12131412152)
                (121324121)  (12131412351)
                (121324123)  (12131412352)
                             (12132412151)
                             (12132412152)
                             (12132412351)
                             (12132412352)
		

Crossrefs

The sum of the same integers is A000096.
The product of the same integers is A000142, Heinz number A070826.
The version for divisors instead of prime factors is A066843.
The integers themselves are the rows of A131818.
The version with multiplicity is A327486.
Using prime indices instead of 2..n gives A355741, for multisets A355744.
Counting sequences instead of multisets gives A355746.
A001221 counts distinct prime factors, with sum A001414.
A001222 counts prime factors with multiplicity.
A003963 multiplies together the prime indices of n.
A056239 adds up prime indices, row sums of A112798.

Programs

  • Mathematica
    Table[Times@@PrimeNu/@Range[2,m],{m,2,30}]

A370816 Greatest number of multisets that can be obtained by choosing a divisor of each factor in an integer factorization of n into unordered factors > 1.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 5, 3, 4, 2, 7, 2, 4, 4, 7, 2, 7, 2, 7, 4, 4, 2, 11, 3, 4, 5, 7, 2, 8, 2, 10, 4, 4, 4, 12, 2, 4, 4, 11, 2, 8, 2, 7, 7, 4, 2, 17, 3, 7, 4, 7, 2, 11, 4, 11, 4, 4, 2, 15, 2, 4, 7, 14, 4, 8, 2, 7, 4, 8, 2, 20, 2, 4, 7, 7, 4, 8, 2, 17, 7, 4, 2
Offset: 1

Views

Author

Gus Wiseman, Mar 06 2024

Keywords

Examples

			For the factorizations of 12 we have the following choices:
  (2*2*3): {{1,1,1},{1,1,2},{1,1,3},{1,2,2},{1,2,3},{2,2,3}}
    (2*6): {{1,1},{1,2},{1,3},{1,6},{2,2},{2,3},{2,6}}
    (3*4): {{1,1},{1,2},{1,3},{1,4},{2,3},{3,4}}
     (12): {{1},{2},{3},{4},{6},{12}}
So a(12) = 7.
		

Crossrefs

The version for partitions is A370808, for just prime factors A370809.
For just prime factors we have A370817.
A000005 counts divisors.
A001055 counts factorizations, strict A045778.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A368413 counts non-choosable factorizations, complement A368414.
A370813 counts non-divisor-choosable factorizations, complement A370814.

Programs

  • Mathematica
    facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
    Table[Max[Length[Union[Sort/@Tuples[Divisors/@#]]]&/@facs[n]],{n,100}]

A371166 Positive integers with fewer divisors (A000005) than distinct divisors of prime indices (A370820).

Original entry on oeis.org

7, 13, 19, 23, 29, 37, 43, 47, 53, 61, 71, 73, 74, 79, 89, 91, 95, 97, 101, 103, 106, 107, 111, 113, 122, 131, 137, 139, 141, 142, 143, 145, 149, 151, 159, 161, 163, 167, 169, 173, 178, 181, 183, 185, 193, 197, 199, 203, 209, 213, 214, 215, 219, 221, 223, 226
Offset: 1

Views

Author

Gus Wiseman, Mar 14 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.

Examples

			The terms together with their prime indices begin:
     7: {4}       101: {26}      163: {38}      223: {48}
    13: {6}       103: {27}      167: {39}      226: {1,30}
    19: {8}       106: {1,16}    169: {6,6}     227: {49}
    23: {9}       107: {28}      173: {40}      229: {50}
    29: {10}      111: {2,12}    178: {1,24}    233: {51}
    37: {12}      113: {30}      181: {42}      239: {52}
    43: {14}      122: {1,18}    183: {2,18}    247: {6,8}
    47: {15}      131: {32}      185: {3,12}    251: {54}
    53: {16}      137: {33}      193: {44}      257: {55}
    61: {18}      139: {34}      197: {45}      259: {4,12}
    71: {20}      141: {2,15}    199: {46}      262: {1,32}
    73: {21}      142: {1,20}    203: {4,10}    263: {56}
    74: {1,12}    143: {5,6}     209: {5,8}     265: {3,16}
    79: {22}      145: {3,10}    213: {2,20}    267: {2,24}
    89: {24}      149: {35}      214: {1,28}    269: {57}
    91: {4,6}     151: {36}      215: {3,14}    271: {58}
    95: {3,8}     159: {2,16}    219: {2,21}    281: {60}
    97: {25}      161: {4,9}     221: {6,7}     293: {62}
		

Crossrefs

The RHS is A370820, for prime factors instead of divisors A303975.
For (equal to) instead of (less than) we have A371165, counted by A371172.
For (greater than) instead of (less than) we have A371167.
For prime factors on the LHS we get A371168, counted by A371173.
Other equalities: A319899, A370802 (A371130), A371128, A371177 (A371178).
Other inequalities: A370348 (A371171), A371169, A371170.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A239312 counts divisor-choosable partitions, ranks A368110.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A370320 counts non-divisor-choosable partitions, ranks A355740.
A370814 counts divisor-choosable factorizations, complement A370813.

Programs

  • Mathematica
    Select[Range[100],Length[Divisors[#]] < Length[Union@@Divisors/@PrimePi/@First/@FactorInteger[#]]&]

Formula

A000005(a(n)) < A370820(a(n)).

A371283 Heinz numbers of sets of divisors of positive integers. Numbers whose prime indices form the set of divisors of some positive integer.

Original entry on oeis.org

2, 6, 10, 22, 34, 42, 62, 82, 118, 134, 166, 218, 230, 254, 314, 358, 382, 390, 422, 482, 554, 566, 662, 706, 734, 798, 802, 862, 922, 1018, 1094, 1126, 1174, 1198, 1234, 1418, 1478, 1546, 1594, 1718, 1754, 1838, 1914, 1934, 1982, 2062, 2126, 2134, 2174, 2306
Offset: 1

Views

Author

Gus Wiseman, Mar 21 2024

Keywords

Comments

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.
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.

Examples

			The terms together with their prime indices begin:
     2: {1}
     6: {1,2}
    10: {1,3}
    22: {1,5}
    34: {1,7}
    42: {1,2,4}
    62: {1,11}
    82: {1,13}
   118: {1,17}
   134: {1,19}
   166: {1,23}
   218: {1,29}
   230: {1,3,9}
   254: {1,31}
   314: {1,37}
   358: {1,41}
   382: {1,43}
   390: {1,2,3,6}
		

Crossrefs

Partitions of this type are counted by A054973.
The unsorted version is A275700.
These numbers have products A371286, unsorted version A371285.
Squarefree case of A371288, counted by A371284.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 counts choices of a prime factor of each prime index.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[2,100],SameQ[prix[#],Divisors[Last[prix[#]]]]&]

A371285 Heinz number of the multiset union of the divisor sets of each prime index of n.

Original entry on oeis.org

1, 2, 6, 4, 10, 12, 42, 8, 36, 20, 22, 24, 390, 84, 60, 16, 34, 72, 798, 40, 252, 44, 230, 48, 100, 780, 216, 168, 1914, 120, 62, 32, 132, 68, 420, 144, 101010, 1596, 2340, 80, 82, 504, 4386, 88, 360, 460, 5170, 96, 1764, 200, 204, 1560, 42294, 432, 220, 336
Offset: 1

Views

Author

Gus Wiseman, Mar 21 2024

Keywords

Comments

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.
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.

Examples

			The prime indices of 105 are {2,3,4}, with divisor sets {{1,2},{1,3},{1,2,4}}, with multiset union {1,1,1,2,2,3,4}, with Heinz number 2520, so a(105) = 2520.
The terms together with their prime indices begin:
          1: {}
          2: {1}
          6: {1,2}
          4: {1,1}
         10: {1,3}
         12: {1,1,2}
         42: {1,2,4}
          8: {1,1,1}
         36: {1,1,2,2}
         20: {1,1,3}
         22: {1,5}
         24: {1,1,1,2}
        390: {1,2,3,6}
         84: {1,1,2,4}
         60: {1,1,2,3}
         16: {1,1,1,1}
         34: {1,7}
         72: {1,1,1,2,2}
		

Crossrefs

Product of A275700 applied to each prime index.
The squarefree case is also A275700.
The sorted version is A371286.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 counts choices of a prime factor of each prime index.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    Table[Times@@Prime/@Join@@Divisors/@prix[n],{n,100}]

Formula

If n = prime(x_1)*...*prime(x_k) then a(n) = A275700(x_1)*...*A275700(x_k).

A371286 Products of elements of A275700 (Heinz numbers of divisor sets). Numbers with a (necessarily unique) factorization into elements of A275700.

Original entry on oeis.org

1, 2, 4, 6, 8, 10, 12, 16, 20, 22, 24, 32, 34, 36, 40, 42, 44, 48, 60, 62, 64, 68, 72, 80, 82, 84, 88, 96, 100, 118, 120, 124, 128, 132, 134, 136, 144, 160, 164, 166, 168, 176, 192, 200, 204, 216, 218, 220, 230, 236, 240, 248, 252, 254, 256, 264, 268, 272, 288
Offset: 1

Views

Author

Gus Wiseman, Mar 22 2024

Keywords

Comments

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.
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.

Examples

			The terms together with their prime factorizations and unique factorizations into terms of A275700 begin:
   1 =             = ()
   2 = 2           = (2)
   4 = 2*2         = (2*2)
   6 = 2*3         = (6)
   8 = 2*2*2       = (2*2*2)
  10 = 2*5         = (10)
  12 = 2*2*3       = (2*6)
  16 = 2*2*2*2     = (2*2*2*2)
  20 = 2*2*5       = (2*10)
  22 = 2*11        = (22)
  24 = 2*2*2*3     = (2*2*6)
  32 = 2*2*2*2*2   = (2*2*2*2*2)
  34 = 2*17        = (34)
  36 = 2*2*3*3     = (6*6)
  40 = 2*2*2*5     = (2*2*10)
  42 = 2*3*7       = (42)
  44 = 2*2*11      = (2*22)
  48 = 2*2*2*2*3   = (2*2*2*6)
  60 = 2*2*3*5     = (6*10)
  62 = 2*31        = (62)
  64 = 2*2*2*2*2*2 = (2*2*2*2*2*2)
  68 = 2*2*17      = (2*34)
  72 = 2*2*2*3*3   = (2*6*6)
  80 = 2*2*2*2*5   = (2*2*2*10)
  82 = 2*41        = (82)
  84 = 2*2*3*7     = (2*42)
  88 = 2*2*2*11    = (2*2*22)
  96 = 2*2*2*2*2*3 = (2*2*2*2*6)
		

Crossrefs

Products of elements of A275700.
The squarefree case is A371283.
The unsorted version is A371285.
A000005 counts divisors.
A001221 counts distinct prime factors.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741 counts choices of a prime factor of each prime index.

Programs

  • Mathematica
    nn=100;
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    facs[n_]:=If[n<=1, {{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]], {d,Rest[Divisors[n]]}]];
    s=Table[Times@@Prime/@Divisors[n],{n,nn}];
    m=Max@@Table[Select[Range[2,k],prix[#] == Divisors[Last[prix[#]]]&],{k,nn}];
    Join@@Position[Table[Length[Select[facs[n], SubsetQ[s,Union[#]]&]],{n,m}],1]

A355748 Number of ways to choose a sequence of divisors, one of each part of the n-th composition in standard order.

Original entry on oeis.org

1, 1, 2, 1, 2, 2, 2, 1, 3, 2, 4, 2, 2, 2, 2, 1, 2, 3, 4, 2, 4, 4, 4, 2, 3, 2, 4, 2, 2, 2, 2, 1, 4, 2, 6, 3, 4, 4, 4, 2, 6, 4, 8, 4, 4, 4, 4, 2, 2, 3, 4, 2, 4, 4, 4, 2, 3, 2, 4, 2, 2, 2, 2, 1, 2, 4, 4, 2, 6, 6, 6, 3, 6, 4, 8, 4, 4, 4, 4, 2, 4, 6, 8, 4, 8, 8, 8
Offset: 0

Views

Author

Gus Wiseman, Jul 23 2022

Keywords

Comments

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			Composition number 152 in standard order is (3,1,4), and the a(152) = 6 choices are: (1,1,1), (1,1,2), (1,1,4), (3,1,1), (3,1,2), (3,1,4).
		

Crossrefs

Positions of 1's are A000079 (after the first).
The anti-run case is A354578, zeros A354904, firsts A354905.
An unordered version (using prime indices) is A355731:
- firsts A355732,
- resorted A355733,
- weakly increasing A355735,
- relatively prime A355737,
- strict A355739.
A000005 counts divisors.
A003963 multiplies together the prime indices of n.
A005811 counts runs in binary expansion.
A029837 adds up standard compositions, lengths A000120.
A066099 lists the compositions in standard order.
A353851 counts compositions with all equal run-sums, ranked by A353848.
A353852 ranks compositions with all distinct run-sums, counted by A353850.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Table[Times@@Length/@Divisors/@stc[n],{n,0,100}]

A370806 Number of non-strict condensed integer partitions of n.

Original entry on oeis.org

0, 0, 0, 0, 1, 0, 1, 1, 3, 2, 4, 4, 8, 9, 11, 14, 19, 24, 29, 39, 47, 58, 70, 85, 104, 129, 152, 184, 223, 264, 313, 374, 442, 524, 617, 719, 852, 993, 1159, 1344, 1579, 1817, 2114, 2440, 2826, 3250, 3750, 4297, 4944, 5662, 6475, 7404, 8462, 9634, 10972, 12480
Offset: 0

Views

Author

Gus Wiseman, Mar 04 2024

Keywords

Comments

These are non-strict partitions such that it is possible to choose a different divisor of each part.

Examples

			The a(4) = 1 through a(13) = 9 partitions:
  (22)  .  (33)  (322)  (44)   (441)  (55)   (443)   (66)    (544)
                        (332)  (522)  (433)  (533)   (444)   (553)
                        (422)         (442)  (722)   (552)   (661)
                                      (622)  (4322)  (633)   (733)
                                                     (822)   (922)
                                                     (4332)  (4432)
                                                     (4431)  (5332)
                                                     (5322)  (5422)
                                                             (6322)
		

Crossrefs

This is the non-strict case of A239312, complement A370320.
These partitions have as ranks the nonsquarefree terms of A368110.
A000005 counts divisors.
A000041 counts integer partitions, strict A000009.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A370592 counts factor-choosable partitions, complement A370593.
A370814 counts condensed factorizations, complement A370813.

Programs

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

Extensions

More terms from Jinyuan Wang, Feb 14 2025

A370811 Numbers such that more than one set can be obtained by choosing a different divisor of each prime index.

Original entry on oeis.org

3, 5, 7, 11, 13, 14, 15, 17, 19, 21, 23, 26, 29, 31, 33, 35, 37, 38, 39, 41, 43, 46, 47, 49, 51, 53, 55, 57, 58, 59, 61, 65, 67, 69, 70, 71, 73, 74, 77, 78, 79, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 105, 106, 107, 109, 111, 113, 114, 115, 117, 119
Offset: 1

Views

Author

Gus Wiseman, Mar 13 2024

Keywords

Comments

A prime index of k is a number m such that prime(m) divides k. The multiset of prime indices of k is row k of A112798.

Examples

			The prime indices of 70 are {1,3,4}, with choices (1,3,4) and (1,3,2), so 70 is in the sequence.
The terms together with their prime indices begin:
     3: {2}      43: {14}        79: {22}       115: {3,9}
     5: {3}      46: {1,9}       83: {23}       117: {2,2,6}
     7: {4}      47: {15}        85: {3,7}      119: {4,7}
    11: {5}      49: {4,4}       86: {1,14}     122: {1,18}
    13: {6}      51: {2,7}       87: {2,10}     123: {2,13}
    14: {1,4}    53: {16}        89: {24}       127: {31}
    15: {2,3}    55: {3,5}       91: {4,6}      129: {2,14}
    17: {7}      57: {2,8}       93: {2,11}     130: {1,3,6}
    19: {8}      58: {1,10}      94: {1,15}     131: {32}
    21: {2,4}    59: {17}        95: {3,8}      133: {4,8}
    23: {9}      61: {18}        97: {25}       137: {33}
    26: {1,6}    65: {3,6}      101: {26}       138: {1,2,9}
    29: {10}     67: {19}       103: {27}       139: {34}
    31: {11}     69: {2,9}      105: {2,3,4}    141: {2,15}
    33: {2,5}    70: {1,3,4}    106: {1,16}     142: {1,20}
    35: {3,4}    71: {20}       107: {28}       143: {5,6}
    37: {12}     73: {21}       109: {29}       145: {3,10}
    38: {1,8}    74: {1,12}     111: {2,12}     146: {1,21}
    39: {2,6}    77: {4,5}      113: {30}       149: {35}
    41: {13}     78: {1,2,6}    114: {1,2,8}    151: {36}
		

Crossrefs

For no choices we have A355740, counted by A370320.
For at least one choice we have A368110, counted by A239312.
Partitions of this type are counted by A370803.
For a unique choice we have A370810, counted by A370595 and A370815.
A000005 counts divisors.
A006530 gives greatest prime factor, least A020639.
A027746 lists prime factors, A112798 indices, length A001222.
A355731 counts choices of a divisor of each prime index, firsts A355732.
A355741, A355744, A355745 choose prime factors of prime indices.
A370814 counts factorizations with choosable divisors, complement A370813.

Programs

  • Mathematica
    prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],Length[Union[Sort /@ Select[Tuples[Divisors/@prix[#]],UnsameQ@@#&]]]>1&]
Previous Showing 51-60 of 75 results. Next