A184909 n+floor(ns/r)+floor(nt/r), where r=2^(1/4), s=2^(1/2), t=2^(3/4).

3, 6, 9, 13, 16, 19, 24, 27, 30, 34, 37, 40, 44, 48, 51, 55, 58, 61, 65, 68, 72, 76, 79, 82, 85, 89, 93, 96, 100, 103, 106, 110, 113, 117, 121, 124, 127, 131, 134, 137, 142, 145, 148, 152, 155, 158, 162, 166, 169, 172, 176, 179, 182, 187, 190, 193, 197, 200, 203, 207, 211, 214, 218, 221, 224, 228, 231, 235, 239, 242, 245, 249, 252, 256, 259, 263, 266, 269, 273, 276, 280, 284, 287, 290, 294, 297, 300, 305, 308, 311, 315, 318, 321, 325, 329, 332, 335, 339, 342, 345, 350, 353, 356, 360, 363, 366, 370, 374, 377, 381, 384, 387, 391, 394, 398, 402, 405, 408, 412, 415

Offset

1,1

Comments

The sequences A184909, A184910, A184911, partition the positive integers:

A184909: 3,6,10,13,17,21,24,28,32,35,...

A184910: 2,5,8,11,14,18,20,23,26,29,,...

A184911: 1,4,7,9,12,15,16,19,22,25,27,...

See A184812.

Links

Table of n, a(n) for n=1..120.

Mathematica

r=2^(1/4); s=2^(1/2); t=2^(3/4);
a[n_]:=n+Floor[n*s/r]+Floor[n*t/r];
b[n_]:=n+Floor[n*r/s]+Floor[n*t/s];
c[n_]:=n+Floor[n*r/t]+Floor[n*s/t];
Table[a[n], {n, 1, 120}]  (* A184909 *)
Table[b[n], {n, 1, 120}]  (* A184910 *)
Table[c[n], {n, 1, 120}]  (* A184911 *)

Crossrefs

Cf. A184812, A184910, A184911.

Sequence in context: A171982 A066343 A172262 * A289037 A060605 A325228

Adjacent sequences: A184906 A184907 A184908 * A184910 A184911 A184912

Keyword

nonn

Author

Clark Kimberling, Jan 25 2011

Status

approved