A184580 a(n) = floor((n-1/4)*sqrt(2)), complement of A184581.

1, 2, 3, 5, 6, 8, 9, 10, 12, 13, 15, 16, 18, 19, 20, 22, 23, 25, 26, 27, 29, 30, 32, 33, 35, 36, 37, 39, 40, 42, 43, 44, 46, 47, 49, 50, 51, 53, 54, 56, 57, 59, 60, 61, 63, 64, 66, 67, 68, 70, 71, 73, 74, 76, 77, 78, 80, 81, 83, 84, 85, 87, 88, 90, 91, 92, 94, 95, 97, 98, 100, 101, 102, 104, 105, 107, 108, 109, 111, 112, 114, 115, 117, 118, 119, 121, 122, 124, 125, 126, 128, 129, 131, 132, 133, 135, 136, 138, 139, 141, 142, 143, 145, 146, 148, 149, 150, 152, 153, 155, 156, 158, 159, 160, 162, 163, 165, 166, 167, 169

Offset: 1

Author

Clark Kimberling, Jan 17 2011

Keywords

• nonn

Links

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

Crossrefs

Cf. A184581.

Programs

Magma

[Floor((n-1/4)*Sqrt(2)): n in [1..30]]; // G. C. Greubel, Jan 27 2018

Mathematica

r=2^(1/2); c=1/4; s=r/(r-1);
Table[Floor[n*r-c*r],{n,1,120}]  (* this sequence *)
Table[Floor[n*s+c*s],{n,1,120}]  (* A184581 *)

PARI

for(n=1, 30, print1(floor((n-1/4)*sqrt(2)), ", ")) \\ G. C. Greubel, Jan 27 2018

Formula

a(n) = floor[(n-1/4)*sqrt(2)].

Extensions

Edited by Clark Kimberling, Jun 09 2015