A306938 If n is divisible by 3 then a(n) = n/3 otherwise a(n) = floor(n*sqrt(3)).

1, 3, 1, 6, 8, 2, 12, 13, 3, 17, 19, 4, 22, 24, 5, 27, 29, 6, 32, 34, 7, 38, 39, 8, 43, 45, 9, 48, 50, 10, 53, 55, 11, 58, 60, 12, 64, 65, 13, 69, 71, 14, 74, 76, 15, 79, 81, 16, 84, 86, 17, 90, 91, 18, 95, 96, 19, 100, 102, 20, 105, 107, 21, 110, 112, 22

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

H. J. J. te Riele, Iteration of number-theoretic functions, Nieuw Archief v. Wiskunde, (4) 1 (1983), 345-360. See Example III.3. [Apparently the sequence is discussed earlier in the same volume on page 80, where it is proved that under certain conditions the iterates of this function go to infinity (namely, if there are two consecutive non-multiples of 3).]

Mathematica

a[n_] := If[Divisible[n, 3], n/3, Floor[n*Sqrt[3]]]; Array[a, 66] (* Amiram Eldar, Mar 17 2019 *)

Crossrefs

Cf. A306943, A306944.

Sequence in context: A280293 A226483 A103407 * A257259 A074475 A144877

Adjacent sequences: A306935 A306936 A306937 * A306939 A306940 A306941

Keyword

nonn

Author

N. J. A. Sloane, Mar 17 2019

Status

approved