A021000 Duplicate of A020727.
2, 7, 24, 82, 280, 956, 3264, 11144, 38048, 129904, 443520, 1514272, 5170048
Offset: 0
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.
[ n le 2 select n+1 else 2*Self(n-2): n in [1..42] ];
a[n_] := If[EvenQ[n], 3*2^(n/2 - 1), 2^((n + 1)/2)]; Array[a, 42] (* Jean-François Alcover, Oct 12 2017 *) RecurrenceTable[{a[1]==2,a[2]==3,a[n]==2a[n-2]},a,{n,50}] (* or *) LinearRecurrence[{0,2},{2,3},50] (* Harvey P. Dale, Mar 01 2018 *)
a(n) = if(n%2,2,3) * 2^((n-1)\2); \\ Andrew Howroyd, Oct 07 2017
LinearRecurrence[{4,-2},{2,4},30] (* Harvey P. Dale, Jan 18 2013 *)
a(n) = 2*real((2+quadgen(8))^n);
[lucas_number2(n,4,2) for n in range(37)] # Zerinvary Lajos, Jun 25 2008
Z:= PolynomialRing(Integers()); N :=NumberField(x^2-2); S:=[ ((4+3*r)*(3+r)^n+(4-3*r)*(3-r)^n)/4: n in [0..21] ]; [ Integers()!S[j]: j in [1..#S] ]; // Klaus Brockhaus, Aug 09 2009
CoefficientList[Series[(2-3*x)/(1-6*x+7*x^2), {x, 0, 1000}], x] (* or *) LinearRecurrence[{6,-7},{2,9}, 50] (* G. C. Greubel, Sep 08 2017 *)
x='x+O('x^50); Vec((2-3*x)/(1-6*x+7*x^2)) \\ G. C. Greubel, Sep 08 2017
Comments