A381632 Numbers such that (greatest prime exponent) = (sum of distinct prime indices).
2, 9, 24, 54, 72, 80, 108, 125, 216, 224, 400, 704, 960, 1215, 1250, 1568, 1664, 2000, 2401, 2500, 2688, 2880, 4352, 4800, 5000, 5103, 6075, 7290, 7744, 8064, 8448, 8640, 8960, 9375, 9728, 10000, 10976, 14400, 14580, 18816, 19968, 21632, 23552, 24000, 24057
Offset: 1
Keywords
Examples
The terms together with their prime indices begin: 2: {1} 9: {2,2} 24: {1,1,1,2} 54: {1,2,2,2} 72: {1,1,1,2,2} 80: {1,1,1,1,3} 108: {1,1,2,2,2} 125: {3,3,3} 216: {1,1,1,2,2,2} 224: {1,1,1,1,1,4} 400: {1,1,1,1,3,3} 704: {1,1,1,1,1,1,5} 960: {1,1,1,1,1,1,2,3}
Crossrefs
Programs
-
Mathematica
prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Select[Range[100],Max@@Last/@FactorInteger[#]==Total[Union[prix[#]]]&]
Comments