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

1, 4, 24, 4, 9, 24, 7, 12, 24, 140, 14, 24, 67, 15, 24, 51, 816, 24, 43, 140, 24, 39, 87, 24, 36, 67, 293, 35, 57, 140, 33, 51, 98, 816, 46, 78, 227, 43, 67, 140, 41, 60, 106, 390, 54, 87, 200, 51, 75, 140, 816, 67, 111, 293, 61, 93, 186, 4756, 82, 140, 456, 73, 115, 251, 67, 98, 178

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024544.

Sequence in context: A145514 A305665 A319145 * A010294 A350887 A216923

Adjacent sequences: A024540 A024541 A024542 * A024544 A024545 A024546

Keyword

nonn

Author

Clark Kimberling

Status

approved