A262088 a(0)=0, a(1)=1, a(n) = -a(n-2)^2 - a(n-1)^3.
0, 1, -1, 0, -1, 1, -2, 7, -347, 41781874, -72939661777729919216033, 388053169934428398618745564559557538054223536478283729487028027756061
Offset: 0
Keywords
Crossrefs
Cf. A262089.
Programs
-
Maple
f:=proc(n) local i; option remember; if n=0 then 0 elif n=1 then 1 else -f(n-2)^2-f(n-1)^3; fi; end; [seq(f(n),n=0..10)]; # N. J. A. Sloane, Jun 16 2021
-
Mathematica
RecurrenceTable[{a[n] == -a[n - 2]^2 - a[n - 1]^3, a[0] == 0, a[1] == 1}, a, {n, 1, 11}] (* Michael De Vlieger, Sep 11 2015 *)
Extensions
Data and offset corrected by N. J. A. Sloane, Jun 16 2021
Comments