OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..50
EXAMPLE
a(2) = 8:
._______. ._______. ._______. ._______.
| | | | | | | | |_______| | |
| | | | | | | | |_______| |_______|
| | | | | | | | | | |_______|
|_|_|___| |___|_|_| |_______| |_______|
._______. ._______. ._______. ._______.
| | | | | | | | | | |
|___| | | |___| |___|___| |_______|
| | | | | | | | | | |
|___|___| |___|___| |_______| |___|___|.
.
MAPLE
a:= proc(n) option remember; `if`(n<2, 1, coeff(series(
RootOf(G-x-2*G^n+G^(n^2), G), x, n^2-n+2), x, n^2-n+1))
end:
seq(a(n), n=0..16);
MATHEMATICA
a[0] = a[1] = 1; a[n_] := Module[{G}, G[_] = 0; Do[G[x_] = 2 G[x]^n - G[x]^n^2 + x + O[x]^(n^2 - n + 2) // Normal, {n^2 - n + 2}];
Coefficient[G[x], x, n^2 - n + 1]];
Table[a[n], {n, 0, 16}] (* Jean-François Alcover, Dec 29 2018, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Dec 15 2018
STATUS
approved