A377111 a(n) = coefficient of sqrt(3) in the expansion of (2 + sqrt(2) + sqrt(3))^n.
0, 1, 4, 21, 104, 529, 2700, 13845, 71120, 365697, 1881236, 9679605, 49809720, 256324433, 1319090972, 6788338869, 34934465440, 179781713537, 925203573540, 4761340669269, 24503114321416, 126099496024593, 648941324534188, 3339623572751061, 17186585699725680
Offset: 0
Examples
(2 + sqrt(2) + sqrt(3))^3 = 9 + 4*sqrt(2) + 4*sqrt(3) + 2*sqrt(6), so a(3) = 4.
Links
- Index entries for linear recurrences with constant coefficients, signature (8,-14,-8,23).
Crossrefs
Cf. A377109.
Programs
-
Mathematica
(* Program 1 generates sequences A377109-A377112. *) tbl = Table[Expand[(2 + Sqrt[2] + Sqrt[3])^n], {n, 0, 24}]; u = MapApply[{#1/#2, #2} /. {1, #} -> {{1}, {#}} &, Map[({#1, #1 /. ^ -> 1} &), Map[(Apply[List, #1] &), tbl]]]; {s1,s2,s3,s4}=Transpose[(PadRight[#1,4]&)/@Last/@u][[1;;4]]; s3 (* Peter J. C. Moses, Oct 16 2024 *) (* Program 2 generates this sequence. *) LinearRecurrence[{8, -14, -8, 23}, {0, 1, 4, 21}, 25]
Formula
a(n) = 8*a(n-1) - 14*a(n-2) - 8*a(n-3) + 23*a(n-4), with a(0)=0, a(1)=1, a(3)=4, a(4)=21.
G.f.: x*(-1 + 4*x - 3*x^2)/(-1 + 8*x - 14*x^2 - 8*x^3 + 23*x^4).
a(n) = ((2 - sqrt(2) + sqrt(3))^n + (2 + sqrt(2) + sqrt(3))^n - (2 - sqrt(2) - sqrt(3))^n - (2 + sqrt(2) - sqrt(3))^n) / (4*sqrt(3)). - Vaclav Kotesovec, Oct 21 2024
Comments