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

Author

Clark Kimberling, Jan 18 2011

Keywords

• nonn

Links

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

Crossrefs

Cf. A184618, A184625.

Programs

Magma

[Floor(n*Sqrt(2) - 1/4): n in [1..100]]; // G. C. Greubel, Apr 20 2018

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 *)

PARI

for(n=1, 100, print1(floor(n*sqrt(2) - 1/4), ", ")) \\ G. C. Greubel, Apr 20 2018