|
|
A110012
|
|
a(n) = n - F(F(n)) where F(x)=floor(sqrt(2)*floor(x/sqrt(2))).
|
|
1
|
|
|
1, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2, 2, 3, 3, 2, 3, 3, 2
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
To built the sequence start from the infinite binary word b(k)=floor(k*(sqrt(2)-1))-floor((k-1)*(sqrt(2)-1)) for k>=1 giving 0,0,1,0,1,0,0,1,0,1,0,0,1,0,1,0,1,0,0,... Then replace each 0 by the block {2,3,3} and each 1 by the block {2,2,3,3}. Append the initial string {1,2}.
|
|
REFERENCES
|
B. Cloitre, On properties of irrational numbers related to the floor function, in preparation, 2005
|
|
LINKS
|
|
|
MATHEMATICA
|
F[x_] := Floor[Sqrt[2]*Floor[x/Sqrt[2]]]; Table[n - F[F[n]], {n, 1, 100}] (* G. C. Greubel, Oct 02 2018 *)
|
|
PROG
|
(PARI) F(x)=floor(sqrt(2)*floor(x/sqrt(2)));
a(n)=n-F(F(n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|