|
|
A050243
|
|
a(n) = floor((1/2 * (sqrt(2) + 1 + sqrt(2*sqrt(2) - 1)))^n ).
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Antreas P. Hatzipolakis (xpolakis(AT)otenet.gr), Dec 21 1999
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|