A383514 Heinz numbers of non Wilf section-sum partitions.
10, 14, 15, 22, 26, 33, 34, 35, 38, 39, 46, 51, 55, 57, 58, 62, 65, 69, 74, 77, 82, 85, 86, 87, 91, 93, 94, 95, 100, 106, 111, 115, 118, 119, 122, 123, 129, 130, 133, 134, 141, 142, 143, 145, 146, 155, 158, 159, 161, 166, 170, 177, 178, 182, 183, 185, 187, 190
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 10: {1,3} 57: {2,8} 94: {1,15} 14: {1,4} 58: {1,10} 95: {3,8} 15: {2,3} 62: {1,11} 100: {1,1,3,3} 22: {1,5} 65: {3,6} 106: {1,16} 26: {1,6} 69: {2,9} 111: {2,12} 33: {2,5} 74: {1,12} 115: {3,9} 34: {1,7} 77: {4,5} 118: {1,17} 35: {3,4} 82: {1,13} 119: {4,7} 38: {1,8} 85: {3,7} 122: {1,18} 39: {2,6} 86: {1,14} 123: {2,13} 46: {1,9} 87: {2,10} 129: {2,14} 51: {2,7} 91: {4,6} 130: {1,3,6} 55: {3,5} 93: {2,11} 133: {4,8}
Crossrefs
Programs
-
Mathematica
disjointFamilies[y_]:=Select[Tuples[IntegerPartitions/@Length/@Split[y]],UnsameQ@@Join@@#&]; prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; conj[y_]:=If[Length[y]==0,y,Table[Length[Select[y,#>=k&]],{k,1,Max[y]}]]; Select[Range[100],disjointFamilies[conj[prix[#]]]!={}&&!UnsameQ@@Last/@FactorInteger[#]&]
Comments