|
%I #7 Apr 10 2021 22:31:29
%S 2,4,6,8,10,12,14,15,17,19,21,23,25,27,29,30,32,34,36,38,40,42,44,45,
%T 47,49,51,53,55,57,59,60,62,64,66,68,70,72,74,75,77,79,81,83,85,87,89,
%U 90,92,94,96,98,100,102,104,105,107,109,111,113,115,117,119,120,122,124,126,128,130,132,134,135,137,139,141,143,145,147,149,150,152,154,156,158,160,162,164,165,167,169,171,173,175,177,179,180,182,184,186,188,190,192,194,195,197,199,201,203,205,207,209,210,212,214,216,218,220,222,224,225
%N a(n) = floor((n*(Pi-1) + 1)/(Pi-2)); complement of A184591.
%F a(n) = floor((n*(Pi-1) + 1)/(Pi-2)).
%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. A184591.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 17 2011
|
