A024557 a(n) = [ a(n-1)/(sqrt(6) - 2) ], where a(0) = 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

Offset

0,2

Links

Clark Kimberling, Table of n, a(n) for n = 0..250

Mathematica

a[0] = 1;
a[n_] := Floor[a[n - 1]/FractionalPart[Sqrt[6]]]
Table[a[n], {n, 0, 60}]
(* Clark Kimberling, Aug 16 2012 *)
NestList[Floor[#/(Sqrt[6]-2)]&, 1, 40] (* Harvey P. Dale, Jun 18 2025 *)

Crossrefs

Sequence in context: A132275 A136671 A274114 * A199409 A025241 A292461

Adjacent sequences: A024554 A024555 A024556 * A024558 A024559 A024560

Keyword

nonn

Author

Clark Kimberling

Status

approved