OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
W. Bosma, Signed bits and fast exponentiation, Journal de Théorie des Nombres de Bordeaux, Vol. 13, Fasc. 1 (2001), p. 38 (Proposition 7).
Index entries for linear recurrences with constant coefficients, signature (4,-3,-4,4).
FORMULA
G.f.: x*(1-2*x^3)/((1-x)*(1+x)*(1-2*x)^2). - Colin Barker, Apr 02 2012
MATHEMATICA
Table[(n+1/3)*2^(n-1) -1/2 +(-1)^(n-1)*(1/6), {n, 1, 50}]
LinearRecurrence[{4, -3, -4, 4}, {1, 4, 13, 34}, 50] (* G. C. Greubel, May 08 2018 *)
PROG
(PARI) for(n=1, 50, print1((n+1/3)*2^(n-1) -1/2 +(-1)^(n-1)*(1/6), ", ")) \\ G. C. Greubel, May 08 2018
(Magma) [(n+1/3)*2^(n-1) -1/2 +(-1)^(n-1)*(1/6): n in [1..50]]; // G. C. Greubel, May 08 2018
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Artur Jasinski, Feb 09 2007
STATUS
approved