A111624 Second lower diagonal of A109626.

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

Offset

3,2

Links

Table of n, a(n) for n=3..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, n - 2], {n, 3, 75}]

Crossrefs

Cf. A109626.

Sequence in context: A118472 A356151 A194880 * A019815 A281143 A200684

Adjacent sequences: A111621 A111622 A111623 * A111625 A111626 A111627

Keyword

nonn

Author

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

Status

approved