OFFSET
0,2
LINKS
FORMULA
MATHEMATICA
f[n_]:=2/(n+1); x=6; Table[x=f[x]; Numerator[x], {n, 0, 5!}](* Absolute Values *) (* Vladimir Joseph Stephan Orlovsky, Mar 12 2010 *)
PROG
(PARI) a(n)=if(n, ([0, 1; 2, 1]^(n-1)*[3; -4])[1, 1], 1) \\ Charles R Greathouse IV, May 26 2026
CROSSREFS
KEYWORD
sign,easy,changed
AUTHOR
Paul Curtz, Jan 12 2009
EXTENSIONS
Edited and extended by R. J. Mathar, Feb 25 2009
STATUS
approved
