_Paul D. Hanna (pauldhanna(AT)juno.com) _ and Robert G. Wilson v, Aug 01 2005

OEIS Server: https://oeis.org/edit/global/213

Paul D. Hanna (pauldhanna(AT)juno.com) and _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Aug 01 2005

OEIS Server: https://oeis.org/edit/global/156

nonn,new

nonn

Paul D. Hanna (pauldhanna(AT)juno.com) & ) and Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2005

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

1,4

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}]

Cf. A109626.

nonn

Paul D. Hanna (pauldhanna(AT)juno.com) & Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 01 2005

approved