A024546 a(n) = [ sum of 1/{k/sqrt(2)} ], k = 1,2,...,n, where {x} := x - [ x ].

1, 3, 12, 13, 15, 19, 20, 21, 24, 38, 39, 42, 47, 48, 49, 53, 101, 102, 104, 111, 113, 114, 118, 119, 121, 123, 134, 135, 137, 142, 143, 145, 148, 172, 173, 175, 181, 183, 184, 188, 189, 190, 193, 202, 203, 205, 209, 210, 212, 214, 230, 232, 234, 239, 240, 242, 245, 327, 329

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Cf. A024545.

Sequence in context: A214528 A217763 A234749 * A073542 A063444 A353439

Adjacent sequences: A024543 A024544 A024545 * A024547 A024548 A024549

Keyword

nonn

Author

Clark Kimberling

Status

approved