A344296 Numbers with at least as many prime factors (counted with multiplicity) as half their sum of prime indices.
1, 2, 3, 4, 6, 8, 9, 10, 12, 16, 18, 20, 24, 27, 28, 30, 32, 36, 40, 48, 54, 56, 60, 64, 72, 80, 81, 84, 88, 90, 96, 100, 108, 112, 120, 128, 144, 160, 162, 168, 176, 180, 192, 200, 208, 216, 224, 240, 243, 252, 256, 264, 270, 280, 288, 300, 320, 324, 336, 352
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 1: {} 30: {1,2,3} 2: {1} 32: {1,1,1,1,1} 3: {2} 36: {1,1,2,2} 4: {1,1} 40: {1,1,1,3} 6: {1,2} 48: {1,1,1,1,2} 8: {1,1,1} 54: {1,2,2,2} 9: {2,2} 56: {1,1,1,4} 10: {1,3} 60: {1,1,2,3} 12: {1,1,2} 64: {1,1,1,1,1,1} 16: {1,1,1,1} 72: {1,1,1,2,2} 18: {1,2,2} 80: {1,1,1,1,3} 20: {1,1,3} 81: {2,2,2,2} 24: {1,1,1,2} 84: {1,1,2,4} 27: {2,2,2} 88: {1,1,1,5} 28: {1,1,4} 90: {1,2,2,3}
Crossrefs
Programs
-
Mathematica
Select[Range[100],PrimeOmega[#]>=Total[Cases[FactorInteger[#],{p_,k_}:>k*PrimePi[p]]]/2&]
Comments