login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A024540 a(n) = Sum_{k=1..n} floor( 1/{k*sqrt(2)} ), where {x} := x - floor(x). 2
2, 3, 7, 8, 22, 24, 25, 28, 29, 36, 37, 38, 40, 41, 45, 46, 70, 72, 73, 76, 77, 85, 86, 87, 89, 90, 95, 96, 178, 180, 181, 184, 185, 197, 199, 200, 203, 204, 210, 211, 212, 214, 215, 219, 220, 238, 240, 241, 244, 245, 253, 254, 255, 257, 258, 263, 264, 305, 307, 308, 311, 312, 322 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

FORMULA

Partial sums of A024539. - Sean A. Irvine, Jul 13 2019

MAPLE

ListTools:-PartialSums([seq(floor(1/frac(k*sqrt(2))), k=1..100)]); # Robert Israel, Jul 14 2019

MATHEMATICA

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

PROG

(MAGMA) a:=Sqrt(2); [&+[Floor(1/(k*a-Floor(k*a))):k in [1..n]]:n in [1..60]]; // Vincenzo Librandi, Jul 17 2019

CROSSREFS

Cf. A024539.

Sequence in context: A276032 A114281 A137823 * A029785 A045545 A029790

Adjacent sequences:  A024537 A024538 A024539 * A024541 A024542 A024543

KEYWORD

nonn

AUTHOR

Clark Kimberling

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 23 19:37 EDT 2019. Contains 328373 sequences. (Running on oeis4.)