OFFSET
0,2
FORMULA
Product_{k>=1} (1 - x^k)^A014197(k).
MATHEMATICA
terms = 58;
S[m_] := S[m] = CoefficientList[Product[1 - x^EulerPhi[k],
{k, 1, m*terms}] + O[x]^terms, x];
S[m = 1];
S[m++];
While[S[m] != S[m - 1], m++];
S[m] (* Jean-François Alcover, May 12 2022 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Seiichi Manyama, May 31 2018
STATUS
approved