A364532
Positive integers with a prime index equal to the sum of prime indices of some nonprime divisor. Heinz numbers of a variation of sum-full partitions.
Original entry on oeis.org
12, 24, 30, 36, 40, 48, 60, 63, 70, 72, 80, 84, 90, 96, 108, 112, 120, 126, 132, 140, 144, 150, 154, 156, 160, 165, 168, 180, 189, 192, 198, 200, 204, 210, 216, 220, 224, 228, 240, 252, 264, 270, 273, 276, 280, 286, 288, 300, 308, 312, 315, 320, 324, 325, 330
Offset: 1
The terms together with their prime indices begin:
12: {1,1,2}
24: {1,1,1,2}
30: {1,2,3}
36: {1,1,2,2}
40: {1,1,1,3}
48: {1,1,1,1,2}
60: {1,1,2,3}
63: {2,2,4}
70: {1,3,4}
72: {1,1,1,2,2}
80: {1,1,1,1,3}
84: {1,1,2,4}
90: {1,2,2,3}
96: {1,1,1,1,1,2}
A299701 counts distinct subset-sums of prime indices.
-
Select[Range[100],Intersection[prix[#],Total/@Subsets[prix[#],{2,Length[prix[#]]}]]!={}&]
A325778
Heinz numbers of integer partitions whose distinct consecutive subsequences have different sums.
Original entry on oeis.org
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 76, 77
Offset: 1
Most small numbers are in the sequence. However, the sequence of non-terms together with their prime indices begins:
12: {1,1,2}
24: {1,1,1,2}
30: {1,2,3}
36: {1,1,2,2}
40: {1,1,1,3}
48: {1,1,1,1,2}
60: {1,1,2,3}
63: {2,2,4}
70: {1,3,4}
72: {1,1,1,2,2}
80: {1,1,1,1,3}
84: {1,1,2,4}
90: {1,2,2,3}
96: {1,1,1,1,1,2}
Cf.
A002033,
A056239,
A112798,
A143823,
A169942,
A299702,
A301899,
A325676,
A325768,
A325769,
A325770,
A325779.
-
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],UnsameQ@@Total/@Union[ReplaceList[primeMS[#],{_,s__,_}:>{s}]]&]
Showing 1-2 of 2 results.
Comments