OFFSET
1,5
COMMENTS
If n is prime or 1 then a(n) = a(n+1).
MATHEMATICA
terms = 53; A[_] = 0; Do[A[x_] = x (1 + Sum[A[x^k]^k, {k, 1, terms}]) + O[x]^(terms + 1) // Normal, terms + 1]; CoefficientList[A[x], x] // Rest
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Feb 22 2020
STATUS
approved