A321397 a is the limit of A321396.

0, 1, 0, 1, 1, 3, 3, 10, 10, 32, 37, 105, 131, 364, 464, 1269, 1690, 4478, 6163, 16070, 22582, 58197, 83431, 212337, 309890, 780706, 1155906, 2888189, 4331109, 10739640, 16291293, 40123020, 61483211, 150518418, 232754753, 566704138, 883597884, 2140614523

Offset: 0

Author

Peter Luschny, Nov 11 2018

Keywords

• nonn

Comments

The sequence a is the limit of the square array A321396 means, that for every fixed k the terms in column k of A321396 differ from a(k) only for finitely many indices.

Crossrefs

Cf. A321396.

Programs

Mathematica

terms = 38; gf[-1] = 1; gf[n_] := gf[n] = (1-Sqrt[1-4z^2 gf[n -1]])/(2z);
row[n_] := row[n] = gf[n]/z^n + O[z]^terms // CoefficientList[#, z]&;
row[n = 1]; row[n++]; While[Print[n]; row[n] != row[n-1], n++];
A321397 = row[n] (* Jean-François Alcover, Dec 08 2018 *)