OFFSET
0,3
PROG
(Perl) -e '@a=(0, 1, 2); for (3..20){ $a[$_] = $a[$_-1] - $a[$_-2] + $a[$_-3]**2; print "$a[$_], "; }'
(PARI) print1(c=0, ", ", b=1, ", "a=2, ", "); for(n=1, 21, print1(d=a-b+c^2, ", "); c=b; b=a; a=d) \\ Klaus Brockhaus
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Gamo (gamo(AT)telecable.es), Nov 13 2004
EXTENSIONS
More terms from Klaus Brockhaus, Nov 14 2004
STATUS
approved