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

2, 2, 12, 6, 70, 12, 7, 25, 12, 70, 19, 12, 33, 17, 70, 25, 408, 39, 21, 70, 30, 195, 43, 25, 70, 33, 146, 46, 2378, 70, 36, 125, 49, 408, 70, 39, 113, 51, 252, 70, 41, 105, 53, 195, 70, 854, 100, 54, 165, 70, 408, 96, 55, 146, 70, 285, 93, 2378, 134, 70, 228, 91, 660, 125, 70, 195, 89

Offset

1,1

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. A024539.

Sequence in context: A278534 A096855 A256120 * A279879 A279139 A279754

Adjacent sequences: A024535 A024536 A024537 * A024539 A024540 A024541

Keyword

nonn

Author

Clark Kimberling

Status

approved