A366581 a(n) = phi(p(n)), where phi is Euler's totient function (A000010) and p(n) is the number of partitions of n (A000041).

1, 1, 1, 2, 4, 6, 10, 8, 10, 8, 12, 24, 60, 100, 72, 80, 120, 180, 240, 168, 360, 240, 332, 1000, 720, 880, 672, 1008, 1560, 3280, 1864, 3100, 4840, 5544, 4920, 8800, 17976, 16800, 18480, 12960, 10584, 23040, 24160, 37800, 57600, 43440, 34560, 49896, 84144

Offset

0,4

Links

Table of n, a(n) for n=0..48.

Formula

a(n) = A000010(A000041(n)).

Mathematica

Table[EulerPhi[PartitionsP[n]], {n, 0, 48}] (* Paul F. Marrero Romero, Oct 14 2023 *)

Prog

(PARI) a(n) = eulerphi(numbpart(n)); \\ Michel Marcus, Oct 14 2023

Crossrefs

Cf. A000041, A000010, A087175, A139041.

Sequence in context: A093081 A242521 A338298 * A073659 A073661 A079052

Adjacent sequences: A366578 A366579 A366580 * A366582 A366583 A366584

Keyword

nonn

Author

Sean A. Irvine, Oct 13 2023

Status

approved