reviewed
approved
proposed
editing
Table[EulerPhi[PartitionsP[n]], {n, 0, 48}] (* Paul F. Marrero Romero, Oct 14 2023 *)
(PARI) a(n) = eulerphi(numbpart(n)); \\ Michel Marcus, Oct 14 2023