A363132 -id:A363132 - cp's OEIS frontend

A363134 Positive integers whose multiset of prime indices satisfies: (length) = 2*(minimum).

4, 6, 10, 14, 22, 26, 34, 38, 46, 58, 62, 74, 81, 82, 86, 94, 106, 118, 122, 134, 135, 142, 146, 158, 166, 178, 189, 194, 202, 206, 214, 218, 225, 226, 254, 262, 274, 278, 297, 298, 302, 314, 315, 326, 334, 346, 351, 358, 362, 375, 382, 386, 394, 398, 422, 441

Offset: 1

Gus Wiseman, Jun 05 2023

nonn

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.

			The terms together with their prime indices begin:
     4: {1,1}         94: {1,15}       214: {1,28}
     6: {1,2}        106: {1,16}       218: {1,29}
    10: {1,3}        118: {1,17}       225: {2,2,3,3}
    14: {1,4}        122: {1,18}       226: {1,30}
    22: {1,5}        134: {1,19}       254: {1,31}
    26: {1,6}        135: {2,2,2,3}    262: {1,32}
    34: {1,7}        142: {1,20}       274: {1,33}
    38: {1,8}        146: {1,21}       278: {1,34}
    46: {1,9}        158: {1,22}       297: {2,2,2,5}
    58: {1,10}       166: {1,23}       298: {1,35}
    62: {1,11}       178: {1,24}       302: {1,36}
    74: {1,12}       189: {2,2,2,4}    314: {1,37}
    81: {2,2,2,2}    194: {1,25}       315: {2,2,3,4}
    82: {1,13}       202: {1,26}       326: {1,38}
    86: {1,14}       206: {1,27}       334: {1,39}

Partitions of this type are counted by A237757.
Removing the factor 2 gives A324522.
For maximum instead of length we have A361908, counted by A118096.
For mean instead of length we have A363133, counted by A363132.
For maximum instead of minimum we have A363218, counted by A237753.
A055396 gives minimum prime index, maximum A061395.
A112798 lists prime indices, length A001222, sum A056239.
A360005 gives twice median of prime indices.
Cf. A000961, A006141, A046660, A051293, A106529, A111907, A237755, A237824, A327482, A361860, A361861, A362050.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Length[prix[#]]==2*Min[prix[#]]&]

A001222(a(n)) = 2*A055396(a(n)).

A363133 Numbers > 1 whose prime indices satisfy 2*(minimum) = (mean).

Original entry on oeis.org

10, 28, 30, 39, 84, 88, 90, 100, 115, 171, 208, 252, 255, 259, 264, 270, 273, 280, 300, 363, 517, 544, 624, 756, 783, 784, 792, 793, 810, 840, 880, 900, 925, 1000, 1035, 1085, 1197, 1216, 1241, 1425, 1495, 1521, 1595, 1615, 1632, 1683, 1691, 1785, 1872, 1911

Offset: 1

Gus Wiseman, May 29 2023

nonn

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.

			The terms together with their prime indices begin:
    10: {1,3}
    28: {1,1,4}
    30: {1,2,3}
    39: {2,6}
    84: {1,1,2,4}
    88: {1,1,1,5}
    90: {1,2,2,3}
   100: {1,1,3,3}
   115: {3,9}
   171: {2,2,8}
   208: {1,1,1,1,6}
   252: {1,1,2,2,4}
   255: {2,3,7}
   259: {4,12}
   264: {1,1,1,2,5}

Removing the factor 2 gives A000961.
For maximum instead of mean we have A361908, counted by A118096.
Partitions of this type are counted by A363132.
For length instead of mean we have A363134, counted by A237757.
For 2*(maximum) = (length) we have A363218, counted by A237753.
A051293 counts subsets with integer mean.
A112798 lists prime indices, length A001222, sum A056239.
A360005 gives twice median of prime indices.
Cf. A006141, A106529, A111907, A237755, A237824, A324522, A327482, A361860, A361861, A362050.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],Mean[prix[#]]==2*Min[prix[#]]&]

cp's OEIS Frontend

A363134 Positive integers whose multiset of prime indices satisfies: (length) = 2*(minimum).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula