OFFSET
1,5
COMMENTS
MATHEMATICA
With[{m = 20}, Table[(4 n + 3 n^2 + 2 n^3)/3, {n, m}] - Length /@ Rest[NestList[Expand[D[#, x]] &, x^x^x, m]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Reshetnikov, Mar 29 2022
STATUS
approved