OFFSET
0,1
COMMENTS
Te Riele has shown this sequence increases for ever.
LINKS
Amiram Eldar, Table of n, a(n) for n = 0..4190
H. J. J. te Riele, Iteration of number-theoretic functions, Nieuw Archief v. Wiskunde, (4) 1 (1983), 345-360. See Example III.3.
MATHEMATICA
f[n_] := If[Divisible[n, 3], n/3, Floor[n*Sqrt[3]]]; NestList[f, 5, 50] (* Amiram Eldar, Mar 17 2019 *)
NestList[If[Mod[#, 3]==0, #/3, Floor[# Sqrt[3]]]&, 5, 40] (* Harvey P. Dale, Sep 01 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 17 2019
STATUS
approved