A077634 LCM of terms in periodic part of continued fraction expansion of square root of 1+3^n.
2, 6, 30, 18, 90, 54, 106260, 162, 26040, 486, 341725784400, 1458, 6564164506066423389173040, 4374, 177815552218920, 13122, 2998833665484118393000638135815684490471025925316000, 39366
Offset: 1
Keywords
Programs
-
Mathematica
Table[Apply[LCM, Last[ContinuedFraction[Sqrt[1+3^u]]]], {u, 1, 25}]