A079632 a(n) = floor(n/floor(sqrt(n)))-floor(sqrt(n)).

0, 1, 2, 0, 0, 1, 1, 2, 0, 0, 0, 1, 1, 1, 2, 0, 0, 0, 0, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 0, 0, 0, 0, 0, 0

Offset: 1

Author

Benoit Cloitre, Jan 30 2003

Keywords

• nonn

Links

• Mike Müller, Svetlana Puzynina, Michaël Rao, Infinite square-free self-shuffling words, arXiv:1401.6536 [cs.DM], 2014. See Example 10 p. 7.

Crossrefs

Cf. A005563, A064801.

Programs

Mathematica

Table[Floor[n/Floor[Sqrt[n]]]-Floor[Sqrt[n]],{n,110}] (* Harvey P. Dale, Feb 04 2016 *)

PARI

a(n)=floor(n/sqrtint(n))-sqrtint(n)

Formula

a(A064801(n))=0; a(A005563(n))=2.