A184742 - OEIS

%I #12 Jan 10 2017 08:05:54

%S 1,3,4,6,8,10,11,13,15,17,18,20,22,24,26,27,29,31,33,34,36,38,40,42,

%T 43,45,47,49,50,52,54,56,57,59,61,63,65,66,68,70,72,73,75,77,79,81,82,

%U 84,86,88,89,91,93,95,96,98,100,102,104,105,107,109,111,112,114,116,118,120,121,123,125,127,128,130,132,134,135,137,139,141,143,144

%N a(n) = floor(n*r + h), where r = sqrt(Pi), h = -1/2.

%C Complement of A184743.

%H G. C. Greubel, <a href="/A184742/b184742.txt">Table of n, a(n) for n = 1..5000</a>

%t r=Pi^(1/2); h=-1/2; s=r/(r-1);

%t Table[Floor[n*r+h],{n,1,120}]  (* A184742 *)

%t Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184743 *)

%o (PARI) for(n=1,25, print1(floor(n*sqrt(Pi) - 1/2), ", ")) \\ _G. C. Greubel_, Jan 09 2017

%Y Cf. A184743.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 20 2011