A195176 - OEIS

%I #12 Sep 08 2022 08:45:59

%S 0,2,4,5,7,8,10,12,13,15,16,18,20,21,23,24,26,27,29,31,32,34,35,37,39,

%T 40,42,43,45,46,48,50,51,53,54,56,58,59,61,62,64,66,67,69,70,72,73,75,

%U 77,78,80,81,83,85,86,88,89,91,92,94,96,97,99,100,102,104,105

%N a(n) = 3*n - floor(n*sqrt(2)).

%H Vincenzo Librandi, <a href="/A195176/b195176.txt">Table of n, a(n) for n = 0..10000</a>

%t With[{c = Sqrt[2]},Table[3*n - Floor[c*n],{n,0,50}]] (* _G. C. Greubel_, Oct 31 2017 *)

%o (Magma) [3*n-Floor(n*(Sqrt(2))): n in [0..70]]; // _Vincenzo Librandi_, Sep 12 2011

%o (PARI) for(n=0,50, print1(3*n - floor(n*sqrt(2)), ", ")) \\ _G. C. Greubel_, Oct 31 2017

%K nonn

%O 0,2

%A _Clark Kimberling_, Sep 10 2011