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,2

Links

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

Formula

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

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

Prog

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

Crossrefs

Cf. A184581.

Sequence in context: A047333 A032796 A087057 * A184622 A195129 A167389

Adjacent sequences: A184577 A184578 A184579 * A184581 A184582 A184583

Keyword

nonn

Author

Clark Kimberling, Jan 17 2011

Extensions

Edited by Clark Kimberling, Jun 09 2015

Status

approved