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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A341637 a(n) = Sum_{d|n} phi(d) * sigma(d) * sigma(n/d). 1
 1, 6, 12, 30, 30, 72, 56, 138, 123, 180, 132, 360, 182, 336, 360, 602, 306, 738, 380, 900, 672, 792, 552, 1656, 795, 1092, 1176, 1680, 870, 2160, 992, 2538, 1584, 1836, 1680, 3690, 1406, 2280, 2184, 4140, 1722, 4032, 1892, 3960, 3690, 3312, 2256, 7224, 2835, 4770, 3672, 5460 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Michael De Vlieger, Table of n, a(n) for n = 1..10000 FORMULA a(n) = Sum_{k=1..n} sigma(gcd(n,k)) * sigma(n/gcd(n,k)). MATHEMATICA Table[Sum[EulerPhi[d] DivisorSigma[1, d] DivisorSigma[1, n/d], {d, Divisors[n]}], {n, 52}] Table[Sum[DivisorSigma[1, GCD[n, k]] DivisorSigma[1, n/GCD[n, k]], {k, n}], {n, 52}] PROG (PARI) a(n) = sumdiv(n, d, eulerphi(d)*sigma(d)*sigma(n/d)); \\ Michel Marcus, Feb 17 2021 CROSSREFS Cf. A000010, A000203, A000385, A034761, A038040, A062354, A062952. Sequence in context: A079390 A124679 A242949 * A143272 A153877 A229491 Adjacent sequences:  A341634 A341635 A341636 * A341638 A341639 A341640 KEYWORD nonn,mult AUTHOR Ilya Gutkovskiy, Feb 16 2021 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.

Last modified January 20 08:54 EST 2022. Contains 350471 sequences. (Running on oeis4.)