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

 

Logo

Please make a donation to keep the OEIS running. We are now in our 56th year. In the past year we added 10000 new sequences and reached almost 9000 citations (which often say "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069088 a(n) = Sum_{d|n} core(d) where d are the divisors of n and where core(d) is the squarefree part of d: the smallest number such that d*core(d) is a square. 3
1, 3, 4, 4, 6, 12, 8, 6, 5, 18, 12, 16, 14, 24, 24, 7, 18, 15, 20, 24, 32, 36, 24, 24, 7, 42, 8, 32, 30, 72, 32, 9, 48, 54, 48, 20, 38, 60, 56, 36, 42, 96, 44, 48, 30, 72, 48, 28, 9, 21, 72, 56, 54, 24, 72, 48, 80, 90, 60, 96, 62, 96, 40, 10, 84, 144, 68, 72, 96, 144, 72, 30, 74 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Multiplicative because it is the inverse Moebius transform of A007913 which is multiplicative. - Christian G. Bower, May 17 2005.

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..16384

FORMULA

G.f.: Sum_{k>=1} core(k)*x^k/(1-x^k). - Benoit Cloitre, Apr 21 2003

Dirichlet g.f.: zeta(2*s)*zeta(s)*zeta(s-1)/zeta(2*s-2). - R. J. Mathar, Oct 31 2011

Sum_{k=1..n} a(k) ~ Pi^4 * n^2 / 180. - Vaclav Kotesovec, Feb 01 2019

Multiplicative with a(p^e) = (p+1)*(e+1)/2 if e odd, and (p+1)*e/2 + 1 if e even. - Amiram Eldar, Sep 03 2020

MATHEMATICA

f[p_, e_] := If[OddQ[e], (p + 1)*(e + 1)/2, (p + 1)*e/2 + 1]; a[1] = 1; a[n_] := Times @@ (f @@@ FactorInteger[n]); Array[a, 100] (* Amiram Eldar, Sep 03 2020 *)

PROG

(PARI) a(n) = sumdiv(n, d, core(d) );

CROSSREFS

Cf. A007913.

Sequence in context: A265887 A008473 A326043 * A178450 A325973 A019462

Adjacent sequences:  A069085 A069086 A069087 * A069089 A069090 A069091

KEYWORD

easy,nonn,mult

AUTHOR

Benoit Cloitre, Apr 05 2002

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 November 30 20:55 EST 2020. Contains 338812 sequences. (Running on oeis4.)