A325121 Sum of binary digits of the prime indices of n.
0, 1, 1, 2, 2, 2, 1, 3, 2, 3, 2, 3, 2, 2, 3, 4, 3, 3, 1, 4, 2, 3, 2, 4, 4, 3, 3, 3, 2, 4, 3, 5, 3, 4, 3, 4, 2, 2, 3, 5, 3, 3, 3, 4, 4, 3, 4, 5, 2, 5, 4, 4, 1, 4, 4, 4, 2, 3, 2, 5, 2, 4, 3, 6, 4, 4, 3, 5, 3, 4, 2, 5, 3, 3, 5, 3, 3, 4, 3, 6, 4, 4, 4, 4, 5, 4, 3
Offset: 1
Keywords
Crossrefs
Programs
-
Mathematica
Table[Sum[pr[[2]]*DigitCount[PrimePi[pr[[1]]],2,1],{pr,FactorInteger[n]}],{n,100}]
Formula
Totally additive with a(prime(n)) = A000120(n).
Comments