cp's OEIS Frontend

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

%I A184742 #12 Jan 10 2017 08:05:54
%S A184742 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 A184742 43,45,47,49,50,52,54,56,57,59,61,63,65,66,68,70,72,73,75,77,79,81,82,
%U A184742 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 A184742 a(n) = floor(n*r + h), where r = sqrt(Pi), h = -1/2.
%C A184742 Complement of A184743.
%H A184742 G. C. Greubel, <a href="/A184742/b184742.txt">Table of n, a(n) for n = 1..5000</a>
%t A184742 r=Pi^(1/2); h=-1/2; s=r/(r-1);
%t A184742 Table[Floor[n*r+h],{n,1,120}]  (* A184742 *)
%t A184742 Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184743 *)
%o A184742 (PARI) for(n=1,25, print1(floor(n*sqrt(Pi) - 1/2), ", ")) \\ _G. C. Greubel_, Jan 09 2017
%Y A184742 Cf. A184743.
%K A184742 nonn
%O A184742 1,2
%A A184742 _Clark Kimberling_, Jan 20 2011