OFFSET
1,2
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..80
J. Lynch et al., Problem 6233: Irrationality of an infinite product, Amer. Math. Monthly 87 (1980) 408-409
FORMULA
a(n) ~ c * 2^(n*(n+1)/2), where c = 0.372186658950350942813441530084543367... . - Vaclav Kotesovec, Oct 10 2016
MATHEMATICA
RecurrenceTable[{a[n] == (2^n - 1) * a[n - 1] + (-1)^n, a[1] == 1}, a, {n, 1, 15}] (* Vaclav Kotesovec, Oct 10 2016 *)
PROG
(PARI) a(n)=if(n<2, 1, (2^n-1)*a(n-1)+(-1)^n)
(Magma) [n eq 1 select 1 else (2^n-1)*Self(n-1)+(-1)^n: n in [1..15]]; // Vincenzo Librandi, Oct 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Nov 16 2006
STATUS
approved