The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A287883 Partial sums of A037276. 2
 1, 3, 6, 28, 33, 56, 63, 285, 318, 343, 354, 577, 590, 617, 652, 2874, 2891, 3124, 3143, 3368, 3405, 3616, 3639, 5862, 5917, 6130, 6463, 6690, 6719, 6954, 6985, 29207, 29518, 29735, 29792, 32025, 32062, 32281, 32594, 34819, 34860, 35097, 35140, 37351, 37686, 37909, 37956, 60179, 60256, 60511 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS N. J. A. Sloane, Table of n, a(n) for n = 1..20000 MATHEMATICA co[n_, k_] := Nest[Flatten[IntegerDigits[{#, n}]] &, n, k - 1]; A037276 = Table[FromDigits[Flatten[IntegerDigits[co @@@ FactorInteger[n]]]], {n, 50}]; Table[Sum[A037276[[k]], {k, 1, n}], {n, 1, 25}] (* G. C. Greubel, Jun 23 2017 *) PROG (Python) from sympy import factorint def a037276(n): f=factorint(n) l=sorted([i for i in f]) return 1 if n==1 else int("".join(str(i)*f[i] for i in l)) l=[0, 1] for n in range(2, 101): l.append(l[n - 1] + a037276(n)) print(l[1:]) # Indranil Ghosh, Jun 23 2017 CROSSREFS Cf. A037276. Sequence in context: A074894 A324146 A287881 * A246753 A247016 A083675 Adjacent sequences: A287880 A287881 A287882 * A287884 A287885 A287886 KEYWORD nonn,base AUTHOR N. J. A. Sloane, Jun 20 2017 STATUS approved

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

Last modified October 1 13:59 EDT 2023. Contains 365826 sequences. (Running on oeis4.)