A184621 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=1/4; complement of A184620.

2, 6, 9, 13, 16, 19, 23, 26, 30, 33, 36, 40, 43, 47, 50, 54, 57, 60, 64, 67, 71, 74, 77, 81, 84, 88, 91, 94, 98, 101, 105, 108, 112, 115, 118, 122, 125, 129, 132, 135, 139, 142, 146, 149, 153, 156, 159, 163, 166, 170, 173, 176, 180, 183, 187, 190, 194, 197, 200, 204, 207, 211, 214, 217, 221, 224, 228, 231, 234, 238, 241, 245, 248, 252, 255, 258, 262, 265, 269, 272, 275, 279, 282, 286, 289, 293, 296, 299, 303, 306, 310, 313, 316, 320, 323, 327, 330, 333, 337, 340, 344, 347, 351, 354, 357, 361, 364, 368, 371, 374, 378, 381, 385, 388, 392, 395, 398, 402, 405, 409

Offset

1,1

Links

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

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-1/4)*(2+sqrt(2)) + 1/4)) \\ G. C. Greubel, Aug 18 2018
(Magma) [Floor((n-1/4)*(2+Sqrt(2)) +1/4): n in [1..120]]; // G. C. Greubel, Aug 18 2018

Crossrefs

Cf. A184618, A184620.

Sequence in context: A086562 A083789 A003145 * A184821 A292659 A184869

Adjacent sequences: A184618 A184619 A184620 * A184622 A184623 A184624

Keyword

nonn

Author

Clark Kimberling, Jan 18 2011

Status

approved