|
|
A046670
|
|
Partial sums of A006530.
|
|
10
|
|
|
1, 3, 6, 8, 13, 16, 23, 25, 28, 33, 44, 47, 60, 67, 72, 74, 91, 94, 113, 118, 125, 136, 159, 162, 167, 180, 183, 190, 219, 224, 255, 257, 268, 285, 292, 295, 332, 351, 364, 369, 410, 417, 460, 471, 476, 499, 546, 549, 556, 561, 578, 591, 644, 647, 658, 665, 684
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
REFERENCES
|
Handbook of Number Theory, D. S. Mitrinovic et al., Kluwer, Section IV.1.
|
|
LINKS
|
A. E. Brouwer, Two number theoretic sums, Stichting Mathematisch Centrum. Zuivere Wiskunde, Report ZW 19/74 (1974): 3 pages. [Cached copy, included with the permission of the author]
|
|
FORMULA
|
|
|
MATHEMATICA
|
Accumulate[Prepend[Table[FactorInteger[n][[-1, 1]], {n, 2, 100}], 1]] (* Harvey P. Dale, Jun 11 2011 *)
|
|
PROG
|
(Haskell)
a046670 n = a046670_list !! (n-1)
(PARI) gpf(n)=if(n<4, n, n=factor(n)[, 1]; n[#n])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,nice,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|