|
| |
|
|
A083952
|
|
Integer coefficients of A(x), where 1<=a(n)<=2, such that A(x)^(1/2) consists entirely of integer coefficients.
|
|
29
| |
|
|
1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| More generally, "integer coefficients of A(x), where 1<=a(n)<=m, such that A(x)^(1/m) consists entirely of integer coefficients", appears to have a unique solution for all m. Is this sequence periodic?
|
|
|
LINKS
| Robert G. Wilson v, Table of n, a(n) for n = 0..10000
N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.
|
|
|
MATHEMATICA
| a[n_] := a[n] = Block[{s = Sum[a[i]*x^i, {i, 0, n - 1}]}, If[ IntegerQ@ Last@ CoefficientList[ Series[ Sqrt[s + x^n], {x, 0, n}], x], 1, 2]]; Table[ a[n], {n, 0, 104}] (* from Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 25 2006 *)
s = 0; a[n_] := a[n] = Block[{}, If[IntegerQ@ Last@ CoefficientList[ Series[ Sqrt[s + x^n], {x, 0, n}], x], s = s + x^n; 1, s = s + 2 x^n; 2]]; Table[ a@n, {n, 0, 104}] (* from Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 08 2007 *)
|
|
|
CROSSREFS
| Cf. A084202 (A(x)^(1/2)), A108335 (A084202 mod 4), A108336 (A084202 mod 2), A108340 (a(n) mod 2). Positions of 1's: A108783.
Cf. A083953, A083954, A083945, A083946.
Sequence in context: A167866 A101422 A070304 * A160242 A043529 A201219
Adjacent sequences: A083949 A083950 A083951 * A083953 A083954 A083955
|
|
|
KEYWORD
| nonn,nice
|
|
|
AUTHOR
| Paul D. Hanna (pauldhanna(AT)juno.com), May 09 2003
|
|
|
EXTENSIONS
| More terms from N. J. A. Sloane (njas(AT)research.att.com), Jul 02 2005
|
| |
|
|
