|
%I #7 Mar 22 2024 09:16:52
%S 2,6,10,22,34,42,62,82,118,134,166,218,230,254,314,358,382,390,422,
%T 482,554,566,662,706,734,798,802,862,922,1018,1094,1126,1174,1198,
%U 1234,1418,1478,1546,1594,1718,1754,1838,1914,1934,1982,2062,2126,2134,2174,2306
%N Heinz numbers of sets of divisors of positive integers. Numbers whose prime indices form the set of divisors of some positive integer.
%C 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.
%C 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.
%e The terms together with their prime indices begin:
%e 2: {1}
%e 6: {1,2}
%e 10: {1,3}
%e 22: {1,5}
%e 34: {1,7}
%e 42: {1,2,4}
%e 62: {1,11}
%e 82: {1,13}
%e 118: {1,17}
%e 134: {1,19}
%e 166: {1,23}
%e 218: {1,29}
%e 230: {1,3,9}
%e 254: {1,31}
%e 314: {1,37}
%e 358: {1,41}
%e 382: {1,43}
%e 390: {1,2,3,6}
%t prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
%t Select[Range[2,100],SameQ[prix[#],Divisors[Last[prix[#]]]]&]
%Y Partitions of this type are counted by A054973.
%Y The unsorted version is A275700.
%Y These numbers have products A371286, unsorted version A371285.
%Y Squarefree case of A371288, counted by A371284.
%Y A000005 counts divisors.
%Y A001221 counts distinct prime factors.
%Y A027746 lists prime factors, A112798 indices, length A001222.
%Y A355731 counts choices of a divisor of each prime index, firsts A355732.
%Y A355741 counts choices of a prime factor of each prime index.
%Y Cf. A000720, A005179, A007416, A034729, A370820, A371131, A371177.
%K nonn
%O 1,1
%A _Gus Wiseman_, Mar 21 2024
|
