

A306938


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


5



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Amiram Eldar, Table of n, a(n) for n = 1..10000
H. J. J. te Riele, Iteration of numbertheoretic functions, Nieuw Archief v. Wiskunde, (4) 1 (1983), 345360. 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 nonmultiples 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



