|
%I #4 Mar 30 2012 18:57:17
%S 2,6,9,13,17,20,24,28,32,35,39,43,46,50,54,58,61,65,69,73,76,80,84,87,
%T 91,95,99,102,106,110,113,117,121,125,128,132,136,139,143,147,151,154,
%U 158,162,165,169,173,177,180,184,188,191,195,199,203,206,210,214,218,221,225,229,232,236,240,244,247,251,255,258,262,266,270,273,277,281,284,288,292,296,299,303,307,310,314,318,322,325,329,333,337,340,344,348,351,355,359,363,366,370,374,377,381,385,389,392,396,400,403,407,411,415,418,422,426,429,433,437,441,444
%N floor(n*(e-1/2)+1/2); complement of A184744.
%F a(n)=floor(n*(e-1/2)+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. A184744.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 20 2011
|
