A111608 - OEIS

A111608

Sixth column of A109626.

1, 1, 3, 4, 5, 6, 7, 4, 3, 5, 11, 4, 13, 14, 10, 8, 17, 3, 19, 20, 21, 22, 23, 12, 25, 13, 9, 28, 29, 10, 31, 16, 22, 17, 35, 24, 37, 38, 39, 20, 41, 21, 43, 44, 15, 46, 47, 40, 49, 25, 34, 52, 53, 36, 55, 28, 57, 29, 59, 60, 61, 62, 21, 32, 65, 55, 67, 68, 46, 70, 71, 12, 73, 37

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

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

FORMULA

G.f.: Q(x)/(1-x^72)^2 where Q(x) is 142-degree polynomial: Q(x)=1+x+3x^2+4x^3+5x^4+6x^5+7x^6+4x^7+...

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, 6 + 1], {n, 74}]

CROSSREFS

Cf. A109626.

Sequence in context: A374691 A159077 A049267 * A126800 A245689 A182258

Adjacent sequences: A111605 A111606 A111607 * A111609 A111610 A111611

KEYWORD

nonn

AUTHOR

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

STATUS

approved