A292765 A292764(n)/2.
1, 4, 9, 18, 33, 60, 105, 180, 309, 526, 895, 1520, 2581, 4378, 7427, 12596
Offset: 1
Crossrefs
Cf. A292764.
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.
1.6956207695598620574163671001175353426181793882085077...
z = 2000; r = 8/5; u = CoefficientList[Series[1/Sum[Floor[(k + 1)*r] (-x)^k, {k, 0, z}], {x, 0, z}], x]; (* A289260 *) v = N[u[[z]]/u[[z - 1]], 200] RealDigits[v, 10][[1]] (* A289265 *)
solve(x=1, 2, x^3 - x^2 - 2) \\ Michel Marcus, Oct 26 2019
a005665 n = a005665_list !! (n-1) a005665_list = 0 : 1 : 5 : zipWith (-) (map (* 3) $ drop 2 a005665_list) (map (* 2) a005665_list) -- Reinhard Zumkeller, May 01 2013
[Floor(((Sqrt(3)+1)^(n+1)+(Sqrt(3)-1)^(n+1)*(-1)^n)*Sqrt(3)/6-1): n in [0..30] ]; // Vincenzo Librandi, Aug 19 2011
a[n_] := Simplify[ ((1 + Sqrt[3])^(n+1) - (1 - Sqrt[3])^(n+1))*Sqrt[3]/6 - 1]; Table[a[n], {n, 0, 30}] (* Jean-François Alcover, Dec 14 2011, after Paul Barry *) LinearRecurrence[{3,0,-2},{0,1,5},40] (* Harvey P. Dale, Mar 30 2015 *)
a(n)=([0,1,0; 0,0,1; -2,0,3]^n*[0;1;5])[1,1] \\ Charles R Greathouse IV, Jun 15 2015
For n=2, assume the two disks are on North initially, first move the smallest one to West in 3 moves, then the largest one to East in 1 move, and the smallest one to East also in 2 moves, with a total of 6 moves. Each disk has a number of moves which is 1 mod 4, thus a(n) = n mod 4.
For n=2, assume the two disks are on North initially, first move the smallest one to South in 2 moves, then the largest one to East in 1 move, the smallest one back to North in 2 moves, the largest one to West in 2 moves, and finally the smallest one to West in 3 moves, with a total of 10 moves. Each disk has a number of moves which is 3 mod 4, thus a(n) == 3*n (mod 4).
[Floor((1/(4*Sqrt(3)))*((1+Sqrt(3))^(n+2)-(1-Sqrt(3))^(n+2))-1): n in [0..30]]; // Vincenzo Librandi, Sep 03 2015
CoefficientList[Series[z (2 + z)/(z - 1)/(2 z^2 + 2 z - 1), {z, 0, 22}], z] (* Michael De Vlieger, Sep 02 2015 *) LinearRecurrence[{3,0,-2},{0,2,7},30] (* Harvey P. Dale, Jul 28 2025 *)
Comments