|
Search: id:A134780
|
|
| |
|
| 1, 2, 1, 2, 1, 3, -1, 6, -7, 19, -33, 73, -146, 311, -652, 1392, -2977, 6420, -13899, 30247, -66078, 144911, -318853, 703768, -1557718, 3456813, -7689531, 17142887, -38296408, 85715645, -192191445, 431647744, -970958480, 2187288804, -4934101775, 11144794835, -25203825094
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
MATHEMATICA
|
a[n_] := a[n] = Block[{k = a[n - 1] + 2, s = Sum[ a[i]*x^i, {i, 0, n - 1}]}, If[IntegerQ@ Last@ CoefficientList[ Series[ Sqrt[s + k*x^n], {x, 0, n}], x], k, k + 1]]; a[0] = 1; CoefficientList[ Series[ Sqrt[ Sum[ a[i]*x^i, {i, 0, 36}]], {x, 0, 36}], x]
|
|
CROSSREFS
|
Cf. A084202, A134779.
Sequence in context: A046205 A046206 A137753 this_sequence A104145 A123675 A123400
Adjacent sequences: A134777 A134778 A134779 this_sequence A134781 A134782 A134783
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Paul D. Hanna (pauldhanna(AT)juno.com) & Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 11 2007
|
|
|
Search completed in 0.002 seconds
|
