A362628 a(n) = Sum_{d|n, phi(d)|n} d.

1, 3, 1, 7, 1, 12, 1, 15, 1, 3, 1, 28, 1, 3, 1, 31, 1, 39, 1, 22, 1, 3, 1, 60, 1, 3, 1, 7, 1, 12, 1, 63, 1, 3, 1, 91, 1, 3, 1, 50, 1, 33, 1, 7, 1, 3, 1, 124, 1, 3, 1, 7, 1, 120, 1, 15, 1, 3, 1, 43, 1, 3, 1, 127, 1, 12, 1, 7, 1, 3, 1, 195, 1, 3, 1, 7, 1, 12, 1, 106, 1, 3, 1, 140

Offset

1,2

Links

Table of n, a(n) for n=1..84.

Mathematica

a[n_] := DivisorSum[n, # &, Divisible[n, EulerPhi[#]] &]; Array[a, 100]

Prog

(PARI) a(n) = sumdiv(n, d, if (!(n % eulerphi(d)), d)); \\ Michel Marcus, Apr 28 2023

Crossrefs

Cf. A000010 (phi), A069932, A362470.

Sequence in context: A050521 A266724 A247146 * A225561 A098093 A160627

Adjacent sequences: A362625 A362626 A362627 * A362629 A362630 A362631

Keyword

nonn,easy

Author

Wesley Ivan Hurt, Apr 28 2023

Status

approved