%I #4 Mar 30 2012 18:57:17
%S 1,4,7,10,12,15,18,20,22,25,28,31,33,36,39,41,43,46,49,52,54,57,60,62,
%T 64,67,70,73,75,78,80,83,86,88,91,94,97,99,101,104,107,109,112,115,
%U 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
%N n+floor(nr/t)+floor(ns/t), where r=2^(1/4), s=2^(1/2), t=2^(3/4).
%C The sequences A184909, A184910, A184911, partition the positive integers:
%C A184909: 3,6,10,13,17,21,24,28,32,35,...
%C A184910: 2,5,8,11,14,18,20,23,26,29,,...
%C A184911: 1,4,7,9,12,15,16,19,22,25,27,...
%C See A184812.
%t r=2^(1/4); s=2^(1/2); t=2^(3/4);
%t a[n_]:=n+Floor[n*s/r]+Floor[n*t/r];
%t b[n_]:=n+Floor[n*r/s]+Floor[n*t/s];
%t c[n_]:=n+Floor[n*r/t]+Floor[n*s/t];
%t Table[a[n],{n,1,120}] (* A184909 *)
%t Table[b[n],{n,1,120}] (* A184910 *)
%t Table[c[n],{n,1,120}] (* A184911 *)
%Y Cf. A184812, A184909, A184910.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 25 2011