A111610 Ninth column of A109626.

1, 2, 3, 4, 5, 4, 7, 8, 1, 10, 11, 8, 13, 14, 10, 16, 17, 2, 19, 20, 14, 22, 23, 24, 25, 26, 3, 28, 29, 10, 31, 32, 33, 34, 35, 4, 37, 38, 13, 40, 41, 14, 43, 44, 5, 46, 47, 48, 49, 50, 17, 52, 53, 6, 55, 56, 57, 58, 59, 40, 61, 62, 7, 64, 65, 44, 67, 68, 46, 70, 71, 8, 73, 74, 50

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, 9 + 1], {n, 75}]

Crossrefs

Cf. A109626.

Sequence in context: A287415 A352612 A083245 * A119816 A227538 A068794

Adjacent sequences: A111607 A111608 A111609 * A111611 A111612 A111613

Keyword

nonn

Author

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

Status

approved