A340387 Numbers whose sum of prime indices is twice their number, counted with multiplicity in both cases.
1, 3, 9, 10, 27, 28, 30, 81, 84, 88, 90, 100, 208, 243, 252, 264, 270, 280, 300, 544, 624, 729, 756, 784, 792, 810, 840, 880, 900, 1000, 1216, 1632, 1872, 2080, 2187, 2268, 2352, 2376, 2430, 2464, 2520, 2640, 2700, 2800, 2944, 3000, 3648, 4896, 5440, 5616
Offset: 1
Keywords
Examples
The sequence of terms together with their prime indices begins: 1: {} 3: {2} 9: {2,2} 10: {1,3} 27: {2,2,2} 28: {1,1,4} 30: {1,2,3} 81: {2,2,2,2} 84: {1,1,2,4} 88: {1,1,1,5} 90: {1,2,2,3} 100: {1,1,3,3} 208: {1,1,1,1,6} 243: {2,2,2,2,2} 252: {1,1,2,2,4}
Crossrefs
Programs
-
Mathematica
primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]]; Select[Range[1000],Total[primeMS[#]]==2*PrimeOmega[#]&]
Comments