%I #12 Sep 08 2022 08:45:55
%S 1,3,4,6,7,8,10,11,13,14,16,17,18,20,21,23,24,25,27,28,30,31,32,34,35,
%T 37,38,40,41,42,44,45,47,48,49,51,52,54,55,57,58,59,61,62,64,65,66,68,
%U 69,71,72,74,75,76,78,79,81,82,83,85,86,88,89,90,92,93,95,96,98,99,100,102,103,105,106,107,109,110,112,113,115,116,117,119,120,122,123,124,126,127,129,130,131,133,134,136,137,139,140,141,143,144,146,147,148,150,151,153,154,156,157,158,160,161,163,164,165,167,168,170
%N a(n) = floor((n+1/3)*sqrt(2)), complement of A184579.
%H G. C. Greubel, <a href="/A184578/b184578.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = floor((n+1/3)*sqrt(2)).
%t r=2^(1/2);c=-1/3;s=r/(r-1);
%t Table[Floor[n*r-c*r],{n,1,120}] (* A184578 *)
%t Table[Floor[n*s+c*s],{n,1,120}] (* A184579 *)
%o (PARI) vector(120, n, floor((n+1/3)*sqrt(2))) \\ _G. C. Greubel_, Aug 19 2018
%o (Magma) [Floor((n+1/3)*Sqrt(2)): n in [1..120]]; // _G. C. Greubel_, Aug 19 2018
%Y Cf. A184579.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 17 2011
|