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

Author

Clark Kimberling, Jan 18 2011

Keywords

• nonn

Links

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

Crossrefs

Cf. A184618, A184620.

Programs

Magma

[Floor((n-1/4)*(2+Sqrt(2)) +1/4): n in [1..120]]; // G. C. Greubel, Aug 18 2018

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 *)

PARI

vector(120, n, floor((n-1/4)*(2+sqrt(2)) + 1/4)) \\ G. C. Greubel, Aug 18 2018