A050243 a(n) = floor((1/2 * (sqrt(2) + 1 + sqrt(2*sqrt(2) - 1)))^n ).

1, 1, 3, 6, 12, 23, 44, 84, 158, 297, 561, 1056, 1989, 3746, 7056, 13287, 25023, 47125, 88746, 167127, 314735, 592710, 1116193, 2102019, 3958531, 7454720, 14038755, 26437833, 49787820, 93760597, 176570285, 332517781, 626198652, 1179259497

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Mathematica

Table[Floor[((Sqrt[2]+1+Sqrt[2Sqrt[2]-1])/2)^n], {n, 0, 40}] (* Harvey P. Dale, Aug 07 2016 *)

Prog

(PARI) vector(50, n, n--; floor((1/2*(sqrt(2)+1+sqrt(2*sqrt(2)-1)))^n )) \\ G. C. Greubel, Sep 30 2018
(Magma) [Floor((1/2*(Sqrt(2)+1+Sqrt(2*Sqrt(2)-1)))^n ): n in [0..50]]; // G. C. Greubel, Sep 30 2018

Crossrefs

Sequence in context: A018180 A079735 A341580 * A285262 A024505 A005256

Adjacent sequences: A050240 A050241 A050242 * A050244 A050245 A050246

Keyword

nonn,easy

Author

Antreas P. Hatzipolakis (xpolakis(AT)otenet.gr), Dec 21 1999

Extensions

More terms from David W. Wilson, Dec 22 1999

Status

approved