A111609 Eighth column of A109626.

1, 2, 3, 1, 5, 3, 7, 7, 9, 10, 11, 12, 13, 7, 15, 10, 17, 18, 19, 15, 21, 11, 23, 9, 25, 26, 27, 14, 29, 15, 31, 4, 33, 34, 35, 9, 37, 19, 39, 35, 41, 42, 43, 44, 45, 23, 47, 30, 49, 50, 51, 39, 53, 27, 55, 21, 57, 58, 59, 30, 61, 31, 63, 8, 65, 66, 67, 17, 69, 35, 71, 63, 73, 74, 75

Offset

1,2

Links

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

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

Crossrefs

Cf. A109626.

Sequence in context: A263409 A047706 A300518 * A238344 A299072 A169820

Adjacent sequences: A111606 A111607 A111608 * A111610 A111611 A111612

Keyword

nonn

Author

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

Status

approved