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

 

Logo


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

Table of n, a(n) for n=1..90.

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.

License Agreements, Terms of Use, Privacy Policy. .

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