A141524 Consider the array T(n, m) where the n-th row is the sequence of integer coefficients of A(x), where 1<=a(n)<=n, such that A(x)^(1/n) consists entirely of integer coefficients and where m is the (m+1)-th coefficient. This is the table in the example of A112283 read term by term, row by row.

1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 2, 4, 3, 4, 4, 4, 1, 1, 5, 5, 5, 5, 1, 1, 6, 3, 2, 3, 6, 6, 6, 3, 4, 6, 6, 6, 6, 3, 4, 6, 6, 3, 6, 6, 2, 3, 6, 6, 6, 3, 4, 6, 6, 2, 6, 6, 6, 6, 6, 6, 6, 3, 4, 6, 6, 4, 6, 6, 2, 6, 6, 4, 6, 3, 2, 3, 6, 6, 6, 3, 4, 3, 6, 3, 6, 3, 4, 6, 6, 2, 6, 3, 6, 3, 6, 1, 1, 7, 7, 7, 7, 7, 7, 1

Offset: 1

Author

Paul D. Hanna & Robert G. Wilson v, Aug 08 2008

Keywords

• nonn
• tabf
• look

Examples

			1, 1,
1, 2, 1,
1, 3, 3, 1,
1, 4, 2, 4, 3, 4, 4, 4, 1,
1, 5, 5, 5, 5, 1,
1, 6, 3, 2, 3, 6, 6, 6, 3, 4, 6, 6, 6, 6, 3, 4, 6, 6, 3, 6, 6, 2, 3, 6, 6, 6, 3, 4, 6, 6, 2, 6, 6, 6, 6, 6, 6, 6, 3, 4, 6, 6, 4, 6, 6, 2, 6, 6, 4, 6, 3, 2, 3, 6, 6, 6, 3, 4, 3, 6, 3, 6, 3, 4, 6, 6, 2, 6, 3, 6, 3, 6, 1,
1, 7, 7, 7, 7, 7, 7, 1,
etc.
		

Links

• Robert G. Wilson v, Table of n, for n = 1..55976.

Crossrefs

Cf. A111603, A111604, A112283.

Programs

Mathematica

f[n_] := Module[{j = 1, 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]; While[a[j] != 1, j++ ]; Table[a[i], {i, 0, j}]]; Table[ f[n], {n, 65}] // Flatten