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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A160620 a(n) = Sum_{d|n} phi(n/d)^2*2^d. 2
 0, 2, 6, 16, 28, 64, 96, 200, 320, 616, 1152, 2248, 4304, 8480, 16728, 33152, 66048, 131584, 263160, 524936, 1050176, 2098240, 4196952, 8389576, 16782976, 33555744, 67117920, 134220712, 268453360, 536872480, 1073780352, 2147485448, 4295034880, 8589944384 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS G. C. Greubel, Table of n, a(n) for n = 0..1000 FORMULA Dirichlet (convolution) product of A127473 and A000079. - R. J. Mathar, Jun 24 2021 MAPLE A160620 := proc(n)     if n =0 then         0;     else         add((numtheory[phi](n/d))^2*2^d, d=numtheory[divisors](n)) ;     end if ; end proc: # R. J. Mathar, Jun 24 2021 MATHEMATICA a[n_]:= If[n<1, 0, Sum[EulerPhi[n/d]^2 * 2^d, {d, Divisors[n]}]]; Table[a[n], {n, 0, 50}] (* G. C. Greubel, May 06 2018 *) PROG (PARI) a(n) = if (n, sumdiv(n, d, eulerphi(n/d)^2*2^d), 0); \\ Michel Marcus, May 07 2018, Jun 22 2021 CROSSREFS Cf. A053635. Cf. A000079, A127473. Sequence in context: A071522 A192532 A230853 * A005996 A192735 A330503 Adjacent sequences:  A160617 A160618 A160619 * A160621 A160622 A160623 KEYWORD nonn AUTHOR N. J. A. Sloane, Nov 21 2009 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 May 27 11:47 EDT 2022. Contains 354097 sequences. (Running on oeis4.)