A184624 a(n) = floor(n*r +h), where r=sqrt(2), h=-1/4; complement of A184619.

1, 2, 3, 5, 6, 8, 9, 11, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 26, 28, 29, 30, 32, 33, 35, 36, 37, 39, 40, 42, 43, 45, 46, 47, 49, 50, 52, 53, 54, 56, 57, 59, 60, 61, 63, 64, 66, 67, 69, 70, 71, 73, 74, 76, 77, 78, 80, 81, 83, 84, 86, 87, 88, 90, 91, 93, 94, 95, 97, 98, 100, 101, 102, 104, 105, 107, 108

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Mathematica

r=2^(1/2); h=-1/4; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184624 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184625 *)

Prog

(PARI) for(n=1, 100, print1(floor(n*sqrt(2) - 1/4), ", ")) \\ G. C. Greubel, Apr 20 2018
(Magma) [Floor(n*Sqrt(2) - 1/4): n in [1..100]]; // G. C. Greubel, Apr 20 2018

Crossrefs

Cf. A184618, A184625.

Sequence in context: A187335 A161188 A184117 * A093001 A226721 A224996

Adjacent sequences: A184621 A184622 A184623 * A184625 A184626 A184627

Keyword

nonn

Author

Clark Kimberling, Jan 18 2011

Status

approved