|
%I #19 Sep 08 2022 08:45:55
%S 4,7,11,14,17,21,24,28,31,34,38,41,45,48,52,55,58,62,65,69,72,75,79,
%T 82,86,89,93,96,99,103,106,110,113,116,120,123,127,130,134,137,140,
%U 144,147,151,154,157,161,164,168,171,174,178,181,185,188,192,195,198
%N a(n) = floor((n + 1/4)*(2 + sqrt(2))).
%C Complement of A184580.
%H Clark Kimberling, <a href="/A184581/b184581.txt">Table of n, a(n) for n = 1..10000</a>
%t r=2^(1/2); c=1/4; s=r/(r-1);
%t Table[Floor[n*r-c*r],{n,1,120}] (* A184580 *)
%t Table[Floor[n*s+c*s],{n,1,120}] (* this sequence *)
%o (Magma) [Floor((n+1/4)*(2+Sqrt(2))): n in [1..60]]; // _Vincenzo Librandi_, Jun 10 2015
%o (PARI) for(n=1,30, print1(floor((n+1/4)*(2+sqrt(2))), ", ")) \\ _G. C. Greubel_, Jan 27 2018
%Y Cf. A184580.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 17 2011
|
