A077633 LCM of terms in periodic part of continued fraction expansion of square root of -1+2^n.
1, 2, 4, 6, 30, 14, 462, 30, 924, 62, 360, 126, 88623545610600, 254, 5364840, 510, 214057116, 1022, 473045752778491241949600, 2046, 3968969477588889464597306400, 4094, 16579321550270765937400453704000
Offset: 1
Keywords
Programs
-
Mathematica
Table[Apply[LCM, Last[ContinuedFraction[Sqrt[ -1+2^u]]]], {u, 1, 25}]