A102652 a(n) = 4 * floor(24*2^n/15) = 4*A077854(n).

4, 12, 24, 48, 100, 204, 408, 816, 1636, 3276, 6552, 13104, 26212, 52428, 104856, 209712, 419428, 838860, 1677720, 3355440, 6710884, 13421772, 26843544, 53687088, 107374180, 214748364, 429496728, 858993456, 1717986916, 3435973836

Offset: 0

Author

Odimar Fabeny, Feb 02 2005

Keywords

• easy
• nonn
• less

Comments

In binary, each term differs from the previous by a single bit.

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..1000
• Index entries for linear recurrences with constant coefficients, signature (3,-3,3,-2).

Crossrefs

Cf. A102650, A102651, A102653.

Programs

Maple

A102652:=n->4 * floor(24*2^n/15); seq(A102652(n), n=0..30); # Wesley Ivan Hurt, Feb 25 2014

Mathematica

Table[4*Floor[24*2^n/15],{n,0,30}] (* or *) LinearRecurrence[{3,-3,3,-2},{4,12,24,48},30] (* Harvey P. Dale, Oct 20 2013 *)
CoefficientList[Series[4/((x - 1) (2 x - 1) (x^2 + 1)), {x, 0, 50}], x] (* Vincenzo Librandi, Feb 28 2014 *)

PARI

a(n)=24<Charles R Greathouse IV, Feb 04 2016

Formula

G.f.: 4 / ( (x-1)*(2*x-1)*(x^2+1) ). - R. J. Mathar, Feb 20 2011

Extensions

Edited by Don Reble, Mar 28 2006