%I #10 Dec 11 2019 20:29:03
%S 1,3,2,5,3,7,4,9,10,11,6,13,14,15,8,17,9,19,10,21,11,23,12,25,26,27,
%T 14,29,30,31,16,33,17,35,18,37,38,39,20,41,42,43,22,45,46,47,48,49,50,
%U 51,52,53,27,55,56,57,29,59,30,61,31,63,32,65,66,67,34,69,70,71,72,73,74
%N First lower diagonal of A109626.
%C The odd-indexed bisection is a(2n+1)=2n+1.
%C The even-indexed bisection: A111619.
%t f[n_] := f[n] = Block[{a}, a[0] = 1; a[l_] := a[l] = Block[{k = 1, s = Sum[ a[i]*x^i, {i, 0, l - 1}]}, While[ IntegerQ[ Last[ CoefficientList[ Series[(s + k*x^l)^(1/n), {x, 0, l}], x]]] != True, k++ ]; k]; Table[a[j], {j, 0, 80}]]; g[n_, m_] := f[n][[m]]; Table[ g[n, n - 1], {n, 2, 74}]
%Y Cf. A109626, A111619, A111620.
%K nonn
%O 2,2
%A _Paul D. Hanna_ and _Robert G. Wilson v_, Aug 01 2005