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-2 of 2 results.

A171476 a(n) = 6*a(n-1) - 8*a(n-2) for n > 1, a(0)=1, a(1)=6.

Original entry on oeis.org

1, 6, 28, 120, 496, 2016, 8128, 32640, 130816, 523776, 2096128, 8386560, 33550336, 134209536, 536854528, 2147450880, 8589869056, 34359607296, 137438691328, 549755289600, 2199022206976, 8796090925056, 35184367894528
Offset: 0

Views

Author

Klaus Brockhaus, Dec 09 2009

Keywords

Comments

Binomial transform of A048473; second binomial transform of A151821; third binomial transform of A010684; fourth binomial transform of A084633 without second term 0; fifth binomial transform of A168589.
Inverse binomial transform of A081625; second inverse binomial transform of A081626; third inverse binomial transform of A081627.
Partial sums of A010036.
Essentially first differences of A006095.
a(n) = A109241(n) converted from binary to decimal. - Robert Price, Jan 19 2016
a(n) is the area enclosed by a Hilbert curve with unit length segments after n iterations, when the start and end points are joined. - Jennifer Buckley, Apr 23 2024

Crossrefs

Cf. A006516 (2^(n-1)*(2^n-1)), A020522 (4^n-2^n), A048473 (2*3^n-1), A151821 (powers of 2, omitting 2 itself), A010684 (repeat 1, 3), A084633 (inverse binomial transform of repeated odd numbers), A168589 ((2-3^n)*(-1)^n), A081625 (2*5^n-3^n), A081626 (2*6^n-4^n), A081627 (2*7^n-5^n), A010036 (sum of 2^n, ..., 2^(n+1)-1), A006095 (Gaussian binomial coefficient [n, 2] for q=2), A171472, A171473.

Programs

  • Magma
    [2*4^n-2^n: n in [0..30]]; // Vincenzo Librandi, Jul 17 2011
  • Mathematica
    LinearRecurrence[{6,-8},{1,6},30] (* Harvey P. Dale, Aug 02 2020 *)
  • PARI
    m=23; v=concat([1, 6], vector(m-2)); for(n=3, m, v[n]=6*v[n-1]-8*v[n-2]); v
    

Formula

a(n) = Sum_{k=1..2^n-1} k.
a(n) = 2*4^n - 2^n.
G.f.: 1/((1-2*x)*(1-4*x)).
a(n) = A006516(n+1).
a(n) = 4*a(n-1) + 2^n for n > 0, a(0)=1. - Vincenzo Librandi, Jul 17 2011
a(n) = Sum_{k=0..n} 2^(n+k). - Bruno Berselli, Aug 07 2013
a(n) = A020522(n+1)/2. - Hussam al-Homsi, Jun 06 2021
E.g.f.: exp(2*x)*(2*exp(2*x) - 1). - Stefano Spezia, Dec 10 2021

A171501 Inverse binomial transform of A084640.

Original entry on oeis.org

0, 1, 3, -1, 7, -9, 23, -41, 87, -169, 343, -681, 1367, -2729, 5463, -10921, 21847, -43689, 87383, -174761, 349527, -699049, 1398103, -2796201, 5592407, -11184809, 22369623, -44739241, 89478487, -178956969, 357913943, -715827881
Offset: 0

Views

Author

Paul Curtz, Dec 10 2009

Keywords

Comments

a(n) and differences are
0, 1, 3, -1, 7, -9,
1, 2, -4, 8, -16, 32, =(-1)^(n+1) * A171449(n),
1, -6, 12, -24, 48, -96,
-7, 18, -36, 72, -144, 288,
25, -54, 108, -216, 432, -864,
Vertical: 1) 0 followed with A168589(n).
2) (-1 followed with A008776(n) ) signed. See A025192(n).
Main diagonal: see A167747(1+n). - Paul Curtz, Jun 16 2011

Programs

  • Magma
    I:=[0, 1, 3]; [n le 3 select I[n] else -Self(n-1) + 2*Self(n-2): n in [1..40]]; // Vincenzo Librandi, Oct 18 2012
  • Mathematica
    CoefficientList[Series[x*(1 + 4*x)/((1 + 2*x)*(1 - x)), {x, 0, 30}], x]
    LinearRecurrence[{-1,2},{0,1,3},40] (* Harvey P. Dale, Jan 14 2020 *)

Formula

a(n) = A140966(n), n>0.
G.f.: x*(1+4*x) / ( (1+2*x)*(1-x) ). - R. J. Mathar, Jun 14 2011
a(1+n)= (-1)^(1+n) * A001045(1+n) + 2. - Paul Curtz, Jun 16 2011

Extensions

Mathematica program by Olivier Gérard, Jul 06 2011
Showing 1-2 of 2 results.