cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A102650 a(n) = 4 * floor(28*2^n/15).

Original entry on oeis.org

4, 12, 28, 56, 116, 236, 476, 952, 1908, 3820, 7644, 15288, 30580, 61164, 122332, 244664, 489332, 978668, 1957340, 3914680, 7829364, 15658732, 31317468, 62634936, 125269876, 250539756, 501079516, 1002159032, 2004318068
Offset: 0

Views

Author

Odimar Fabeny, Feb 02 2005

Keywords

Comments

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

Links

Crossrefs

Cf. A102651, A102652, A102653.

Programs

  • Maple
    A102650:=n->4*floor(28*2^n/15); seq(A102650(n), n=0..40); # Wesley Ivan Hurt, Jan 21 2014
  • Mathematica
    a[n_] := 4*Floor[28*2^n/15]; Table[a[n], {n, 0, 40}] (* Stefan Steinerberger, Apr 08 2006 *)
CoefficientList[Series[(4+4x+4x^2)/((x-1)(2x-1)(1+x)(x^2+1)), {x,0,45}],x]  (* Harvey P. Dale, Mar 13 2011 *)
  • PARI
    a(n)=28<Charles R Greathouse IV, Feb 04 2016

Formula

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

Extensions

Edited by Don Reble, Mar 28 2006
More terms from Stefan Steinerberger, Apr 08 2006

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

Original entry on oeis.org

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

Views

Author

Odimar Fabeny, Feb 02 2005

Keywords

Comments

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

Links

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

A102653 a(n) = 4 * floor(9*2^n/5).

Original entry on oeis.org

4, 12, 28, 56, 112, 228, 460, 920, 1840, 3684, 7372, 14744, 29488, 58980, 117964, 235928, 471856, 943716, 1887436, 3774872, 7549744, 15099492, 30198988, 60397976, 120795952, 241591908, 483183820, 966367640, 1932735280, 3865470564, 7730941132, 15461882264
Offset: 0

Views

Author

Odimar Fabeny, Feb 02 2005

Keywords

Comments

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

Links

Crossrefs

Cf. A102650, A102651, A102652.

Programs

  • Mathematica
    Table[4Floor[(27 2^n)/15],{n,0,30}] (* or *) LinearRecurrence[ {3,-3,3,-2}, {4,12,28,56},30] (* Harvey P. Dale, Jun 15 2011 *)
  • PARI
    a(n)=27<Charles R Greathouse IV, Feb 04 2016

Formula

From R. J. Mathar, Feb 20 2011: (Start)
a(n) = 4 * A151754(n+1).
G.f.: 4 * ( 1+x^2-x^3 ) / ( (x-1)*(2*x-1)*(x^2+1) ). (End)
a(0)=4, a(1)=12, a(2)=28, a(3)=56, a(n) = 3*a(n-1)-3*a(n-2)+3*a(n-3)-2*a(n-4). - Harvey P. Dale, Jun 15 2011

Extensions

Edited by Don Reble, Mar 28 2006
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.