OFFSET
0,1
EXAMPLE
n=6: floor(Pi*10^6)=3141592=2*2*2*392699: a(6)=2+2+2+392699=392705.
MATHEMATICA
sapf[n_]:=Total[Flatten[Table[#[[1]], #[[2]]]&/@FactorInteger[n]]]; sapf/@ Floor[Pi 10^Range[0, 30]] (* Harvey P. Dale, Nov 18 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 30 2003
STATUS
approved