|
%I #4 Mar 30 2012 18:57:17
%S 1,3,4,5,7,8,10,11,12,14,15,16,18,19,21,22,23,25,26,27,29,30,31,33,34,
%T 36,37,38,40,41,42,44,45,47,48,49,51,52,53,55,56,57,59,60,62,63,64,66,
%U 67,68,70,71,72,74,75,77,78,79,81,82,83,85,86,88,89,90,92,93,94,96,97,98,100,101,103,104,105,107,108,109,111,112,114,115,116,118,119,120,122,123,124,126,127,129,130,131,133,134,135,137,138,140,141,142,144,145,146,148,149,150,152,153,155,156,157,159,160,161,163,164
%N floor(nr+h), where r=1+1/e, h=1/2; complement of A184745.
%F a(n)=floor(nr+h), where r=1+1/e, h=1/2.
%t r=1+1/E; h=1/2; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184744 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184745 *)
%Y Cf. A184745.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 20 2011
|
