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

1, 4, 7, 10, 12, 15, 18, 20, 22, 25, 28, 31, 33, 36, 39, 41, 43, 46, 49, 52, 54, 57, 60, 62, 64, 67, 70, 73, 75, 78, 80, 83, 86, 88, 91, 94, 97, 99, 101, 104, 107, 109, 112, 115, 118, 120, 122, 125, 128, 130, 133, 136, 139, 141, 143, 146, 149, 151, 154, 157, 160, 161, 164, 167, 170, 173, 175, 178, 181, 183, 185, 188, 191, 194, 196, 199, 202, 204, 206, 209, 212, 215, 217, 220, 222, 225, 227, 230, 233, 236, 238, 241, 243, 246, 248, 251, 254, 257, 260, 262, 264, 267, 270, 272, 275, 278, 281, 283, 285, 288, 291, 293, 296, 299, 302, 303, 306, 309, 312, 314

Offset

1,2

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, A184909, A184910.

Sequence in context: A050173 A078633 A190008 * A103762 A186226 A080734

Adjacent sequences: A184908 A184909 A184910 * A184912 A184913 A184914

Keyword

nonn

Author

Clark Kimberling, Jan 25 2011

Status

approved