A111616 - OEIS

A111616

n divided by the third upper diagonal of the array in A111615.

1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1

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

OFFSET

1,6

COMMENTS

a(n)=2 for n's: 6,10,18,20,22,30,34,36,38,44,50,52,56,58,62,... =A111617.

LINKS

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

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[ n / g[n, n + 3], {n, 105}]

CROSSREFS

Cf. A111615.

Sequence in context: A355032 A244226 A344590 * A299152 A332770 A113120

Adjacent sequences: A111613 A111614 A111615 * A111617 A111618 A111619

KEYWORD

nonn

AUTHOR

Paul D. Hanna and Robert G. Wilson v, Jul 30 2005

STATUS

approved