A024544 a(n) = [ 1/{n/sqrt(2)} ], where {x} := x - [ x ].

1, 2, 8, 1, 1, 4, 1, 1, 2, 14, 1, 2, 5, 1, 1, 3, 48, 1, 2, 7, 1, 1, 3, 1, 1, 2, 10, 1, 1, 4, 1, 1, 2, 24, 1, 2, 6, 1, 1, 3, 1, 1, 2, 8, 1, 1, 4, 1, 1, 2, 16, 1, 2, 5, 1, 1, 3, 82, 1, 2, 7, 1, 1, 3, 1, 1, 2, 12, 1, 2, 4, 1, 1, 3, 30, 1, 2, 6, 1, 1, 3, 1, 1, 2, 9, 1, 1, 4, 1, 1, 2, 18, 1, 2, 5, 1, 1, 3, 280, 1

Offset

1,2

Links

Clark Kimberling, Table of n, a(n) for n = 1..1000

Mathematica

Table[Floor[1/FractionalPart[n/Sqrt[2]]], {n, 1, 100}] (* Clark Kimberling, Aug 17 2012 *)

Crossrefs

Cf. A024543.

Sequence in context: A293777 A200704 A257955 * A202539 A197287 A081882

Adjacent sequences: A024541 A024542 A024543 * A024545 A024546 A024547

Keyword

nonn

Author

Clark Kimberling

Status

approved