A184622 a(n) = floor(n*r+h), where r=sqrt(2), h=-1/3; complement of A184623.

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, 93, 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, 134, 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

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/3.

Mathematica

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

Prog

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

Crossrefs

Cf. A184618, A184623.

Sequence in context: A032796 A087057 A184580 * A195129 A167389 A288373

Adjacent sequences: A184619 A184620 A184621 * A184623 A184624 A184625

Keyword

nonn

Author

Clark Kimberling, Jan 18 2011

Status

approved