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

 

Logo
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 27 11:47 EDT 2022. Contains 354097 sequences. (Running on oeis4.)