A363223 Numbers with bigomega equal to median prime index.
2, 9, 10, 50, 70, 75, 105, 110, 125, 130, 165, 170, 175, 190, 195, 230, 255, 275, 285, 290, 310, 325, 345, 370, 410, 425, 430, 435, 465, 470, 475, 530, 555, 575, 590, 610, 615, 645, 670, 686, 705, 710, 725, 730, 775, 790, 795, 830, 885, 890, 915, 925, 970
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 2: {1} 9: {2,2} 10: {1,3} 50: {1,3,3} 70: {1,3,4} 75: {2,3,3} 105: {2,3,4} 110: {1,3,5} 125: {3,3,3} 130: {1,3,6} 165: {2,3,5} 170: {1,3,7} 175: {3,3,4}
Crossrefs
Programs
-
Mathematica
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Select[Range[1000],PrimeOmega[#]==Median[prix[#]]&]
Comments