A187328 a(n) = floor((2-1/sqrt(2))*n); complement of A187338.

0, 1, 2, 3, 5, 6, 7, 9, 10, 11, 12, 14, 15, 16, 18, 19, 20, 21, 23, 24, 25, 27, 28, 29, 31, 32, 33, 34, 36, 37, 38, 40, 41, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 56, 58, 59, 60, 62, 63, 64, 65, 67, 68, 69, 71, 72, 73, 74, 76, 77, 78, 80, 81, 82, 84, 85, 86, 87, 89, 90, 91, 93, 94, 95, 96, 98, 99, 100, 102, 103, 104, 106, 107, 108, 109, 111, 112, 113, 115, 116, 117, 118, 120, 121, 122, 124, 125, 126, 127, 129, 130, 131, 133, 134, 135, 137, 138, 139, 140, 142, 143, 144, 146, 147, 148, 149, 151, 152, 153, 155

Offset

0,3

Links

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

Index entries for sequences related to Beatty sequences

Formula

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

Maple

A187328:=n->floor(n*(2-2^(-1/2))); seq(A187328(n), n=0..100); # Wesley Ivan Hurt, Feb 02 2014

Mathematica

Table[Floor[(2-2^(-1/2))n], {n, 0, 120}]

Prog

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

Crossrefs

Cf. A187338.

Sequence in context: A183864 A181133 A039105 * A065000 A188292 A171948

Adjacent sequences: A187325 A187326 A187327 * A187329 A187330 A187331

Keyword

nonn

Author

Clark Kimberling, Mar 08 2011

Status

approved