A111612 Twelfth column of A109626.

1, 1, 1, 3, 5, 6, 7, 4, 6, 5, 11, 6, 13, 14, 5, 12, 17, 18, 19, 5, 21, 22, 23, 8, 25, 13, 9, 28, 29, 10, 31, 8, 33, 17, 35, 21, 37, 38, 26, 20, 41, 21, 43, 22, 45, 46, 47, 44, 49, 25, 34, 13, 53, 9, 55, 56, 19, 29, 59, 20, 61, 62, 42, 16, 65, 22, 67, 51, 23, 70, 71, 72, 73, 37, 75, 38

Offset

1,4

Links

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

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, 12 + 1], {n, 76}]

Crossrefs

Cf. A109626.

Sequence in context: A181757 A181753 A082218 * A317920 A305443 A362074

Adjacent sequences: A111609 A111610 A111611 * A111613 A111614 A111615

Keyword

nonn

Author

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

Status

approved