|
| |
|
|
A122593
|
|
a(n) = 2*a(n - 1) - a(n - 2) - (a(n - 2) - a(n - 1))^2 + (a(n - 2) - a(n - 3))^2.
|
|
0
| |
|
|
1, 1, 1, 0, 0, 2, -6, -54, -2184, -4532418, -20523011025492, -421193795514716517978851412, -177404213380075544048510970681865493733941889439557930, -31472254925003374689403264185693337773848906235022202710045975235073779744728
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
MATHEMATICA
| a[0] = 1; a[1] = 1; a[2] = 1; a[n_] := a[n] = a[n - 1] - 2*a[n - 1] + a[n - 3]- (a[n - 2] - a[n - 1])^2 + (a[n - 2] - a[n - 3])^2; Table[a[n], {n, 0, 17}]
|
|
|
CROSSREFS
| Sequence in context: A156340 A085078 A152543 * A153450 A179389 A084123
Adjacent sequences: A122590 A122591 A122592 * A122594 A122595 A122596
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 19 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 21 2006
|
| |
|
|
