A111618 First lower diagonal of A109626.

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, 14, 29, 30, 31, 16, 33, 17, 35, 18, 37, 38, 39, 20, 41, 42, 43, 22, 45, 46, 47, 48, 49, 50, 51, 52, 53, 27, 55, 56, 57, 29, 59, 30, 61, 31, 63, 32, 65, 66, 67, 34, 69, 70, 71, 72, 73, 74

Offset

2,2

Comments

The odd-indexed bisection is a(2n+1)=2n+1.

The even-indexed bisection: A111619.

Links

Table of n, a(n) for n=2..74.

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

Crossrefs

Cf. A109626, A111619, A111620.

Sequence in context: A026741 A105658 A083242 * A107128 A086670 A075888

Adjacent sequences: A111615 A111616 A111617 * A111619 A111620 A111621

Keyword

nonn

Author

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

Status

approved