A077632 LCM of terms in periodic part of continued fraction expansion of square root of 1+2^n.
2, 4, 3, 8, 10, 16, 66, 32, 220, 64, 235620, 128, 360360, 256, 2508660, 512, 16290726273360, 1024, 23508390120198798054240, 2048, 465977246353354335600, 4096, 3026207803243202829468977760, 8192
Offset: 1
Keywords
Programs
-
Mathematica
Table[Apply[LCM, Last[ContinuedFraction[Sqrt[1+2^u]]]], {u, 1, 25}]