|
%I #15 Sep 08 2022 08:45:56
%S 0,1,2,3,5,6,7,9,10,11,12,14,15,16,18,19,20,21,23,24,25,27,28,29,31,
%T 32,33,34,36,37,38,40,41,42,43,45,46,47,49,50,51,53,54,55,56,58,59,60,
%U 62,63,64,65,67,68,69,71,72,73,74,76,77,78,80,81,82,84,85,86,87,89,90,91,93,94,95,96,98,99,100,102,103,104,106,107,108,109,111,112,113,115,116,117,118,120,121,122,124,125,126,127,129,130,131,133,134,135,137,138,139,140,142,143,144,146,147,148,149,151,152,153,155
%N a(n) = floor((2-1/sqrt(2))*n); complement of A187338.
%H G. C. Greubel, <a href="/A187328/b187328.txt">Table of n, a(n) for n = 0..10000</a>
%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F a(n) = floor((2-1/sqrt(2))*n).
%p A187328:=n->floor(n*(2-2^(-1/2))); seq(A187328(n), n=0..100); # _Wesley Ivan Hurt_, Feb 02 2014
%t Table[Floor[(2-2^(-1/2))n], {n,0,120}]
%o (PARI) vector(120, n, n--; floor((2-1/sqrt(2))*n)) \\ _G. C. Greubel_, Aug 19 2018
%o (Magma) [Floor((2-1/Sqrt(2))*n): n in [0..120]]; // _G. C. Greubel_, Aug 19 2018
%Y Cf. A187338.
%K nonn
%O 0,3
%A _Clark Kimberling_, Mar 08 2011
|
