|
%I #4 Mar 30 2012 18:57:17
%S 1,4,7,10,13,15,18,21,24,26,28,31,34,37,40,42,45,48,50,53,56,58,61,64,
%T 67,70,72,74,77,80,83,85,88,91,94,97,99,101,104,107,110,113,115,118,
%U 121,123,126,128,131,134,137,140,143,145,147,150,153,156,158,161,164,167,170,172,174,177,180,183,186,188,191,194,197,199,201,204,207,210,213,215,218,221,223,226,229,231,234,237,240,243,245,247,250,253,256,258,261,264,267,270,272,274,277,280,283,286,288,291,294,296,299,301,304,307,310,313,316,318,321,323
%N n+floor(ns/r)+floor(nt/r), 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, A184905, A184906.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 25 2011
|
