A184620 a(n) = floor(nr+h), where r=sqrt(2), h=1/4; complement of A184621.

1, 3, 4, 5, 7, 8, 10, 11, 12, 14, 15, 17, 18, 20, 21, 22, 24, 25, 27, 28, 29, 31, 32, 34, 35, 37, 38, 39, 41, 42, 44, 45, 46, 48, 49, 51, 52, 53, 55, 56, 58, 59, 61, 62, 63, 65, 66, 68, 69, 70, 72, 73, 75, 76, 78, 79, 80, 82, 83, 85, 86, 87, 89, 90, 92, 93, 95, 96, 97, 99, 100, 102, 103, 104, 106, 107, 109, 110, 111, 113, 114, 116, 117, 119, 120, 121, 123, 124, 126, 127, 128, 130, 131, 133, 134, 136, 137, 138, 140, 141, 143, 144, 145, 147, 148, 150, 151, 152, 154, 155, 157, 158, 160, 161, 162, 164, 165, 167, 168, 169

Offset

1,2

Links

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

Formula

a(n) = floor(n*r+h), where r=sqrt(2), h=1/4.

Mathematica

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

Prog

(PARI) vector(120, n, floor(n*sqrt(2) + 1/4)) \\ G. C. Greubel, Aug 18 2018
(Magma) [Floor(n*Sqrt(2) + 1/4): n in [1..120]]; // G. C. Greubel, Aug 18 2018

Crossrefs

Cf. A184618, A184521.

Sequence in context: A184744 A063732 A047367 * A039043 A116591 A136119

Adjacent sequences: A184617 A184618 A184619 * A184621 A184622 A184623

Keyword

nonn

Author

Clark Kimberling, Jan 18 2011

Status

approved