A367226 Numbers m whose prime indices have a nonnegative linear combination equal to bigomega(m).
1, 2, 4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 26, 28, 30, 32, 33, 34, 36, 38, 39, 40, 42, 44, 45, 46, 48, 50, 51, 52, 54, 56, 57, 58, 60, 62, 64, 66, 68, 69, 70, 72, 74, 75, 76, 78, 80, 81, 82, 84, 86, 87, 88, 90, 92, 93, 94, 96, 98, 100, 102, 104
Offset: 1
Keywords
Examples
The prime indices of 24 are {1,1,1,2} with (1+1+1+1) = 4 or (1+1)+(2) = 4 or (2+2) = 4, so 24 is in the sequence. The terms together with their prime indices begin: 1: {} 2: {1} 4: {1,1} 6: {1,2} 8: {1,1,1} 9: {2,2} 10: {1,3} 12: {1,1,2} 14: {1,4} 15: {2,3} 16: {1,1,1,1} 18: {1,2,2} 20: {1,1,3} 21: {2,4} 22: {1,5} 24: {1,1,1,2} 26: {1,6} 28: {1,1,4} 30: {1,2,3} 32: {1,1,1,1,1}
Crossrefs
The following sequences count and rank integer partitions and finite sets according to whether their length is a subset-sum or linear combination of the parts. The current sequence is starred.
sum-full sum-free comb-full comb-free
-------------------------------------------
Programs
-
Mathematica
prix[n_]:=If[n==1,{}, Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]]; combs[n_,y_]:=With[{s=Table[{k,i},{k,y}, {i,0,Floor[n/k]}]}, Select[Tuples[s], Total[Times@@@#]==n&]]; Select[Range[100], combs[PrimeOmega[#], Union[prix[#]]]!={}&]
Comments