The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A095402 Sum of digits of all distinct prime factors of n. 12
 0, 2, 3, 2, 5, 5, 7, 2, 3, 7, 2, 5, 4, 9, 8, 2, 8, 5, 10, 7, 10, 4, 5, 5, 5, 6, 3, 9, 11, 10, 4, 2, 5, 10, 12, 5, 10, 12, 7, 7, 5, 12, 7, 4, 8, 7, 11, 5, 7, 7, 11, 6, 8, 5, 7, 9, 13, 13, 14, 10, 7, 6, 10, 2, 9, 7, 13, 10, 8, 14, 8, 5, 10, 12, 8, 12, 9, 9, 16, 7, 3, 7, 11, 12, 13, 9, 14, 4, 17, 10 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS EXAMPLE n=1000: prime set={2,5}, a[1000]=7; n=:255255: prime set={3,5,7,11,13,17}, a[255255]=3+5+7+2+4+8=29. MATHEMATICA ffi[x_] :=Flatten[FactorInteger[x]] lf[x_] :=Length[FactorInteger[x]] ba[x_] :=Table[Part[ffi[x], 2*j-1], {j, 1, lf[x]}] sd[x_] :=Apply[Plus, IntegerDigits[x]] tdp[x_] :=Flatten[Table[IntegerDigits[Part[ba[x], j]], {j, 1, lf[x]}], 1] sdp[x_] :=Apply[Plus, tdp[x]] Table[sdp[w], {w, 1, 150}] Table[Total[Flatten[IntegerDigits[First/@FactorInteger[n]]]], {n, 1, 100}] (Zak Seidov) CROSSREFS Cf. A007953, A051351. Sequence in context: A035361 A137851 A141346 * A086294 A075860 A323171 Adjacent sequences:  A095399 A095400 A095401 * A095403 A095404 A095405 KEYWORD nonn,base AUTHOR Labos Elemer, Jun 21 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 12 14:45 EDT 2021. Contains 344957 sequences. (Running on oeis4.)