login
A306943
Trajectory of 5 under repeated application of x -> A306938(x).
5
5, 8, 13, 22, 38, 65, 112, 193, 334, 578, 1001, 1733, 3001, 5197, 9001, 15590, 27002, 46768, 81004, 140303, 243011, 420907, 729032, 1262720, 2187095, 3788159, 6561283, 11364475, 19683848, 34093424, 59051542, 102280271, 177154625, 306840811, 531463874
OFFSET
0,1
COMMENTS
Te Riele has shown this sequence increases for ever.
LINKS
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
Sequence in context: A314467 A314468 A111321 * A020736 A314469 A217185
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 17 2019
STATUS
approved