A111619 Even-indexed bisection of the first lower diagonal (A111618).

1, 2, 3, 4, 10, 6, 14, 8, 9, 10, 11, 12, 26, 14, 30, 16, 17, 18, 38, 20, 42, 22, 46, 48, 50, 52, 27, 56, 29, 30, 31, 32, 66, 34, 70, 72, 74, 76, 78, 40, 82, 84, 86, 88, 90, 92, 94, 48, 49, 100, 51, 104, 106, 108, 110, 112, 114, 58, 118, 120, 122, 124, 126, 64, 65, 66, 134, 68

Offset

1,2

Links

Table of n, a(n) for n=1..68.

Mathematica

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, 144}]]; g[n_, m_] := f[n][[m]]; Table[ g[n, n - 1], {n, 2, 144, 2}]

Crossrefs

Cf. A111618.

Sequence in context: A364223 A087548 A353959 * A241083 A334463 A143178

Adjacent sequences: A111616 A111617 A111618 * A111620 A111621 A111622

Keyword

nonn

Author

Paul D. Hanna and Robert G. Wilson v, Aug 03 2005

Status

approved