A111615 Third upper diagonal of the array in A109626.

1, 2, 3, 4, 5, 3, 7, 8, 9, 5, 11, 12, 13, 14, 15, 16, 17, 9, 19, 10, 21, 11, 23, 24, 25, 26, 27, 28, 29, 15, 31, 32, 33, 17, 35, 18, 37, 19, 39, 40, 41, 42, 43, 22, 45, 46, 47, 48, 49, 25, 51, 26, 53, 54, 55, 28, 57, 29, 59, 60, 61, 31, 63, 64, 65, 66, 67, 68, 69, 70, 71, 36, 73

Offset

1,2

Links

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

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 + 3], {n, 74}]

Crossrefs

Cf. A109626.

Sequence in context: A235602 A304180 A327498 * A358668 A348401 A324932

Adjacent sequences: A111612 A111613 A111614 * A111616 A111617 A111618

Keyword

nonn

Author

Paul D. Hanna and Robert G. Wilson v, Jul 30 2005

Status

approved