|
|
A024557
|
|
a(n) = [ a(n-1)/(sqrt(6) - 2) ], where a(0) = 1.
|
|
1
|
|
|
1, 2, 4, 8, 17, 37, 82, 182, 404, 898, 1997, 4442, 9882, 21984, 48908, 108807, 242067, 538537, 1198107, 2665482, 5930017, 13192774, 29350556, 65297498, 145270273, 323189294, 719013724, 1599622094, 3558751049, 7917313144, 17614001812, 39186660195
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
a[0] = 1;
a[n_] := Floor[a[n - 1]/FractionalPart[Sqrt[6]]]
Table[a[n], {n, 0, 60}]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|