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