|
%I #6 Aug 20 2014 15:47:06
%S 2,6,8,12,16,18,22,25,28,32,35,38,41,45,48,51,55,57,61,64,67,71,73,77,
%T 81,83,87,90,93,97,100,103,107,110,113,116,120,123,126,129,132,136,
%U 139,142,146,148,152,156,158,162,165,168,172,175,178,181,184,188,191,194,197,201,204,207,211,214,217,221,223,227,231,233,237,240,243,247,249,253,256,259,263,266,269
%N n+[nr/s]+[nt/s]; r=1, s=sqrt(e), t=e.
%C (See A189399.)
%t (See A189399.)
%t Table[n+Floor[n/Sqrt[E]]+Floor[n*Sqrt[E]],{n,90}] (* _Harvey P. Dale_, Aug 20 2014 *)
%Y Cf. A189400, A189400, A189401, A189402, A189405.
%K nonn
%O 1,1
%A _Clark Kimberling_, Apr 21 2011
|
