A325118 Heinz numbers of binary carry-connected integer partitions.
1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 13, 15, 16, 17, 19, 20, 22, 23, 25, 27, 29, 30, 31, 32, 34, 37, 39, 40, 41, 43, 44, 45, 46, 47, 49, 50, 51, 53, 55, 59, 60, 61, 62, 64, 65, 67, 68, 71, 73, 75, 77, 79, 80, 81, 82, 83, 85, 87, 88, 89, 90, 91, 92, 93, 94, 97, 100
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 1: {} 2: {1} 3: {2} 4: {1,1} 5: {3} 7: {4} 8: {1,1,1} 9: {2,2} 10: {1,3} 11: {5} 13: {6} 15: {2,3} 16: {1,1,1,1} 17: {7} 19: {8} 20: {1,1,3} 22: {1,5} 23: {9} 25: {3,3} 27: {2,2,2} 29: {10}
Crossrefs
Programs
-
Mathematica
binpos[n_]:=Join@@Position[Reverse[IntegerDigits[n,2]],1]; csm[s_]:=With[{c=Select[Tuples[Range[Length[s]],2],And[OrderedQ[#],UnsameQ@@#,Length[Intersection@@s[[#]]]>0]&]},If[c=={},s,csm[Sort[Append[Delete[s,List/@c[[1]]],Union@@s[[c[[1]]]]]]]]]; Select[Range[100],Length[csm[binpos/@PrimePi/@First/@FactorInteger[#]]]<=1&]
Comments