login
A077628
Sum of terms in periodic part of continued fraction expansion of square root of 1+2^n.
1
3, 4, 0, 8, 14, 16, 42, 32, 82, 64, 270, 128, 518, 256, 642, 512, 2126, 1024, 7098, 2048, 7502, 4096, 14550, 8192, 19810, 16384, 108802, 32768, 101154, 65536, 299166, 131072, 360298, 262144, 891666, 524288, 2128896, 1048576, 8352642, 2097152, 4466878
OFFSET
1,1
LINKS
MATHEMATICA
Table[Apply[Plus, Last[ContinuedFraction[Sqrt[1+2^u]]]], {u, 1, 25}]
Join[{3, 4, 3}, Table[Total[ContinuedFraction[Sqrt[1+2^n]][[2]]], {n, 4, 50}]] (* Harvey P. Dale, Oct 03 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 13 2002
EXTENSIONS
More terms from Harvey P. Dale, Oct 03 2016
a(3) corrected by Chai Wah Wu, Sep 18 2021
STATUS
approved