OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..83
FORMULA
0 = a(n)*(-5*a(n+1) + a(n+2)) + a(n+1)*(+2*a(n+1)) for all n in Z.
a(n+1) = a(n) * A140966(n) for all n in Z.
MATHEMATICA
RecurrenceTable[{a[n] == 5*a[n - 1] - 2*a[n - 1]^2/a[n - 2], a[0] == 1, a[1] == 2}, a, {n, 0, 50}] (* G. C. Greubel, Aug 05 2018 *)
PROG
(PARI) {a(n) = if( n<0, 1 / prod(k=1, -n, (5 + (-2)^-k) / 3), prod(k=0, n-1, (5 + (-2)^k) / 3))};
(Magma) I:=[1, 2]; [n le 2 select I[n] else 5*Self(n-1) - 2*Self(n-1)^2/Self(n-2): n in [1..30]]; // G. C. Greubel, Aug 05 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Michael Somos, Sep 18 2014
STATUS
approved