|
%I #6 Jan 29 2016 11:13:05
%S 2,5,8,11,14,17,20,23,27,30,33,35,38,41,44,47,51,54,57,60,63,66,68,71,
%T 75,78,81,84,87,90,93,96,100,102,105,108,111,114,117,120,124,127,130,
%U 133,136,138,141,144,148,151,154,157,160,163,166,169,171,175,178,181,184,187,190,193,196,200,203,205,208,211,214,217,220,224,227,230,233,236,239,241,244,248,251,254,257,260,263,266,269,273,275,278,281,284,287,290,293,297,300,303,306,308,311,314,317,320,324,327,330,333,336,339,342,344,348,351,354,357,360,363
%N n+floor(nr/s)+floor(nt/s), where r=2^(1/2), s=2^(1/3), t=2^(1/5).
%C The sequences A184904, A184905, A184906, partition the positive integers:
%C A184904: 1,4,7,10,13,15,18,21,24,26,...
%C A184905: 2,5,8,11,14,17,20,23,27,30,...
%C A184906: 3,6,9,12,16,19,22,25,29,32,...
%C See A184812.
%t r=2^(1/2); s=2^(1/3); t=2^(1/5);
%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}] (* A184904 *)
%t Table[b[n],{n,1,120}] (* A184905 *)
%t Table[c[n],{n,1,120}] (* A184906 *)
%Y Cf. A184812, A184904, A184906.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 25 2011
|
