A184578 a(n) = floor((n+1/3)*sqrt(2)), complement of A184579.

1, 3, 4, 6, 7, 8, 10, 11, 13, 14, 16, 17, 18, 20, 21, 23, 24, 25, 27, 28, 30, 31, 32, 34, 35, 37, 38, 40, 41, 42, 44, 45, 47, 48, 49, 51, 52, 54, 55, 57, 58, 59, 61, 62, 64, 65, 66, 68, 69, 71, 72, 74, 75, 76, 78, 79, 81, 82, 83, 85, 86, 88, 89, 90, 92, 93, 95, 96, 98, 99, 100, 102, 103, 105, 106, 107, 109, 110, 112, 113, 115, 116, 117, 119, 120, 122, 123, 124, 126, 127, 129, 130, 131, 133, 134, 136, 137, 139, 140, 141, 143, 144, 146, 147, 148, 150, 151, 153, 154, 156, 157, 158, 160, 161, 163, 164, 165, 167, 168, 170

Offset

1,2

Links

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

Formula

a(n) = floor((n+1/3)*sqrt(2)).

Mathematica

r=2^(1/2); c=-1/3; s=r/(r-1);
Table[Floor[n*r-c*r], {n, 1, 120}] (* A184578 *)
Table[Floor[n*s+c*s], {n, 1, 120}] (* A184579 *)

Prog

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

Crossrefs

Cf. A184579.

Sequence in context: A276218 A047299 A186159 * A022846 A083922 A039042

Adjacent sequences: A184575 A184576 A184577 * A184579 A184580 A184581

Keyword

nonn

Author

Clark Kimberling, Jan 17 2011

Status

approved