OFFSET
1,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..9
MATHEMATICA
RecurrenceTable[{a[1]==1, a[2]==2, a[n]==a[n-1]^3-2*a[n-2]}, a, {n, 10}] (* Vincenzo Librandi, Jul 15 2012 *)
PROG
(Magma) I:=[1, 2]; [n le 2 select I[n] else Self(n-1)^3-2*Self(n-2): n in [1..7]]; // Vincenzo Librandi, Jul 15 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Apr 26 2010
STATUS
approved