OFFSET
0,4
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
KEYWORD
nonn
AUTHOR
Sean A. Irvine, Oct 13 2023
STATUS
approved