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

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

Original entry on oeis.org

1, 2, 6, 9, 10, 22, 25, 28, 30, 34, 42, 45, 62, 63, 66, 75, 82, 92, 98, 99, 102, 104, 110, 118, 121, 134, 140, 147, 152, 153, 156, 166, 170, 186, 210, 218, 228, 230, 232, 234, 246, 254, 260, 275, 276, 279, 289, 308, 310, 314, 315, 330, 342, 343, 344, 348, 350
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.
All squarefree terms are even.

Examples

			The prime indices of 1617 are {2,4,4,5}, with distinct divisors {1,2,4,5}, so 1617 is in the sequence.
The terms together with their prime indices begin:
    1: {}
    2: {1}
    6: {1,2}
    9: {2,2}
   10: {1,3}
   22: {1,5}
   25: {3,3}
   28: {1,1,4}
   30: {1,2,3}
   34: {1,7}
   42: {1,2,4}
   45: {2,2,3}
   62: {1,11}
   63: {2,2,4}
   66: {1,2,5}
   75: {2,3,3}
   82: {1,13}
   92: {1,1,9}
   98: {1,4,4}
   99: {2,2,5}
  102: {1,2,7}
  104: {1,1,1,6}

Crossrefs

For factors instead of divisors on the RHS we have A319899.
A version for binary indices is A367917.
For (greater than) instead of (equal) we have A370348, counted by A371171.
The RHS is A370820, for prime factors instead of divisors A303975.
Partitions of this type are counted by A371130, strict A371128.
For divisors instead of factors on LHS we have A371165, counted by A371172.
For only distinct prime factors on LHS we have A371177, counted by A371178.
Other inequalities: A371166, A371167, 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.
Cf. A000792, A003963, A355529, A355737, A355739, A355741, A368100, A370808, A370813, A370814, A371127.

Programs

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

Formula

A001222(a(n)) = A370820(a(n)).

A370348 Numbers k such that there are fewer divisors of prime indices of k than there are prime indices of k.

Original entry on oeis.org

4, 8, 12, 16, 18, 20, 24, 27, 32, 36, 40, 44, 48, 50, 54, 56, 60, 64, 68, 72, 80, 81, 84, 88, 90, 96, 100, 108, 112, 120, 124, 125, 126, 128, 132, 135, 136, 144, 150, 160, 162, 164, 168, 176, 180, 184, 189, 192, 196, 198, 200, 204, 208, 216, 220, 224, 225, 236, 240, 242, 243, 248, 250, 252, 256
Offset: 1

Views

Author

Robert Israel, Feb 15 2024

Keywords

Comments

No multiple of a term is a term of A368110.

Examples

			a(5) = 18 is a term because the prime indices of 18 = 2 * 3^2 are 1,2,2, and there are 3 of these but only 2 divisors of prime indices, namely 1 and 2.

Links

Crossrefs

The LHS is A370820, firsts A371131.
The version for equality is A370802, counted by A371130, strict A371128.
For submultisets instead of parts on the RHS we get A371167.
The opposite version is A371168, counted by A371173.
The weak version is A371169.
The complement is A371170.
Partitions of this type are counted by A371171.
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.
Cf. A003963, A239312, A303975, A319899, A355529, A355739, A370808, A371127.

Programs

  • Maple
    filter:= proc(n) uses numtheory; local F,D,t;
   F:= map(t -> [pi(t[1]),t[2]], ifactors(n)[2]);
   D:= `union`(seq(divisors(t[1]), t = F));
   nops(D) < add(t[2], t = F)
end proc:
select(filter, [$1..300]);
  • Mathematica
    filter[n_] := Module[{F, d},
    F = {PrimePi[#[[1]]], #[[2]]}& /@ FactorInteger[n];
    d = Union[Flatten[Divisors /@ F[[All, 1]]]];
    Length[d] < Total[F[[All, 2]]]];
Select[Range[300], filter] (* Jean-François Alcover, Mar 08 2024, after Maple code *)

A371165 Positive integers with as many divisors (A000005) as distinct divisors of prime indices (A370820).

Original entry on oeis.org

3, 5, 11, 17, 26, 31, 35, 38, 39, 41, 49, 57, 58, 59, 65, 67, 69, 77, 83, 86, 87, 94, 109, 119, 127, 129, 133, 146, 148, 157, 158, 179, 191, 202, 206, 211, 217, 235, 237, 241, 244, 253, 274, 277, 278, 283, 284, 287, 291, 298, 303, 319, 326, 331, 333, 334, 353
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:
     3: {2}        67: {19}        158: {1,22}
     5: {3}        69: {2,9}       179: {41}
    11: {5}        77: {4,5}       191: {43}
    17: {7}        83: {23}        202: {1,26}
    26: {1,6}      86: {1,14}      206: {1,27}
    31: {11}       87: {2,10}      211: {47}
    35: {3,4}      94: {1,15}      217: {4,11}
    38: {1,8}     109: {29}        235: {3,15}
    39: {2,6}     119: {4,7}       237: {2,22}
    41: {13}      127: {31}        241: {53}
    49: {4,4}     129: {2,14}      244: {1,1,18}
    57: {2,8}     133: {4,8}       253: {5,9}
    58: {1,10}    146: {1,21}      274: {1,33}
    59: {17}      148: {1,1,12}    277: {59}
    65: {3,6}     157: {37}        278: {1,34}

Crossrefs

For prime factors instead of divisors on both sides we get A319899.
For prime factors on LHS we get A370802, for distinct prime factors A371177.
The RHS is A370820, for prime factors instead of divisors A303975.
For (greater than) instead of (equal) we get A371166.
For (less than) instead of (equal) we get A371167.
Partitions of this type are counted by A371172.
Other inequalities: A370348 (A371171), A371168 (A371173), 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.
Cf. A000792, A003963, A355529, A355739, A355741, A368100, A370808, A371127.

Programs

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

Formula

A000005(a(n)) = A370820(a(n)).

A371168 Positive integers with fewer prime factors (A001222) than distinct divisors of prime indices (A370820).

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, 52, 53, 55, 57, 58, 59, 61, 65, 67, 69, 70, 71, 73, 74, 76, 77, 78, 79, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 103, 105, 106, 107, 109, 111, 113, 114, 115
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 prime indices of 105 are {2,3,4}, and there are 3 prime factors (3,5,7) and 4 distinct divisors of prime indices (1,2,3,4), so 105 is in the sequence.
The terms together with their prime indices begin:
     3: {2}      35: {3,4}      59: {17}        86: {1,14}
     5: {3}      37: {12}       61: {18}        87: {2,10}
     7: {4}      38: {1,8}      65: {3,6}       89: {24}
    11: {5}      39: {2,6}      67: {19}        91: {4,6}
    13: {6}      41: {13}       69: {2,9}       93: {2,11}
    14: {1,4}    43: {14}       70: {1,3,4}     94: {1,15}
    15: {2,3}    46: {1,9}      71: {20}        95: {3,8}
    17: {7}      47: {15}       73: {21}        97: {25}
    19: {8}      49: {4,4}      74: {1,12}     101: {26}
    21: {2,4}    51: {2,7}      76: {1,1,8}    103: {27}
    23: {9}      52: {1,1,6}    77: {4,5}      105: {2,3,4}
    26: {1,6}    53: {16}       78: {1,2,6}    106: {1,16}
    29: {10}     55: {3,5}      79: {22}       107: {28}
    31: {11}     57: {2,8}      83: {23}       109: {29}
    33: {2,5}    58: {1,10}     85: {3,7}      111: {2,12}

Crossrefs

The opposite version is A370348 counted by A371171.
The version for equality is A370802, counted by A371130, strict A371128.
The RHS is A370820, for prime factors instead of divisors A303975.
For divisors instead of prime factors on the LHS we get A371166.
The complement is counted by A371169.
The weak version is A371170.
Partitions of this type are counted by A371173.
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.
Cf. A003963, A319899, A355737, A355739, A355741, A370808, A370814, A371127.

Programs

  • Mathematica
    Select[Range[100],PrimeOmega[#]

Formula

A001222(a(n)) < A370820(a(n)).

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

Original entry on oeis.org

1, 2, 3, 5, 6, 7, 9, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 45, 46, 47, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 92
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 prime indices of 105 are {2,3,4}, and there are 3 prime factors (3,5,7) and 4 distinct divisors of prime indices (1,2,3,4), so 105 is in the sequence.
The terms together with their prime indices begin:
     1: {}       22: {1,5}      42: {1,2,4}    63: {2,2,4}
     2: {1}      23: {9}        43: {14}       65: {3,6}
     3: {2}      25: {3,3}      45: {2,2,3}    66: {1,2,5}
     5: {3}      26: {1,6}      46: {1,9}      67: {19}
     6: {1,2}    28: {1,1,4}    47: {15}       69: {2,9}
     7: {4}      29: {10}       49: {4,4}      70: {1,3,4}
     9: {2,2}    30: {1,2,3}    51: {2,7}      71: {20}
    10: {1,3}    31: {11}       52: {1,1,6}    73: {21}
    11: {5}      33: {2,5}      53: {16}       74: {1,12}
    13: {6}      34: {1,7}      55: {3,5}      75: {2,3,3}
    14: {1,4}    35: {3,4}      57: {2,8}      76: {1,1,8}
    15: {2,3}    37: {12}       58: {1,10}     77: {4,5}
    17: {7}      38: {1,8}      59: {17}       78: {1,2,6}
    19: {8}      39: {2,6}      61: {18}       79: {22}
    21: {2,4}    41: {13}       62: {1,11}     82: {1,13}

Crossrefs

The complement 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 strict version is A371168 counted by A371173.
The opposite version is A371169.
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.
Cf. A003963, A319899, A355737, A355739, A355741, A370808, A371127.

Programs

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

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.
Cf. A000792, A003963, A355737, A355739, A355741, A368100, A370808, A371127.

Programs

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

Formula

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

A371167 Positive integers with more divisors (A000005) than distinct divisors of prime indices (A370820).

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 27, 28, 30, 32, 33, 34, 36, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 55, 56, 60, 62, 63, 64, 66, 68, 70, 72, 75, 76, 78, 80, 81, 82, 84, 85, 88, 90, 92, 93, 96, 98, 99, 100, 102, 104, 105, 108, 110
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 prime indices of 814 are {1,5,12}, and there are 8 divisors (1,2,11,22,37,74,407,814) and 7 distinct divisors of prime indices (1,2,3,4,5,6,12), so 814 is in the sequence.
The prime indices of 1859 are {5,6,6}, and there are 6 divisors (1,11,13,143,169,1859) and 5 distinct divisors of prime indices (1,2,3,5,6), so 1859 is in the sequence.
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}
    14: {1,4}
    15: {2,3}
    16: {1,1,1,1}
    18: {1,2,2}
    20: {1,1,3}
    21: {2,4}
    22: {1,5}
    24: {1,1,1,2}
    25: {3,3}
    27: {2,2,2}
    28: {1,1,4}
    30: {1,2,3}

Crossrefs

For prime factors on the LHS we have A370348, counted by A371171.
The RHS is A370820, for prime factors instead of divisors A303975.
For (equal to) instead of (greater than) we get A371165, counted by A371172.
For (less than) instead of (greater than) we get A371166.
Other equalities: A319899, A370802 (A371130), A371128, A371177 (A371178).
Other inequalities: A371168 (A371173), 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.
Cf. A000792, A003963, A355529, A355739, A355741, A368100, A370808, A371127.

Programs

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

Formula

A000005(a(n)) > A370820(a(n)).
Showing 1-7 of 7 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.