A184591 - OEIS

%I #8 Apr 11 2021 00:00:03

%S 1,3,5,7,9,11,13,16,18,20,22,24,26,28,31,33,35,37,39,41,43,46,48,50,

%T 52,54,56,58,61,63,65,67,69,71,73,76,78,80,82,84,86,88,91,93,95,97,99,

%U 101,103,106,108,110,112,114,116,118,121,123,125,127,129,131,133,136,138,140,142,144,146,148,151,153,155,157,159,161,163,166,168,170,172,174,176,178,181,183,185,187,189,191,193,196,198,200,202,204,206,208,211,213,215,217,219,221,223,226,228,230,232,234,236,238,240,243,245,247,249,251,253,255

%N a(n) = floor(n*(Pi-1)-1); complement of A184592.

%F a(n) = floor(n*(Pi-1) - 1).

%t r=Pi-1; c=1/r; s=r/(r-1);

%t Table[Floor[n*r-c*r],{n,1,120}] (* A184591 *)

%t Table[Floor[n*s+c*s],{n,1,120}] (* A184592 *)

%Y Cf. A184592.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 17 2011