login
A024546
a(n) = [ sum of 1/{k/sqrt(2)} ], k = 1,2,...,n, where {x} := x - [ x ].
2
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
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
KEYWORD
nonn
STATUS
approved