|
%I #18 Sep 08 2022 08:44:46
%S 0,2,3,5,7,9,10,12,14,16,17,19,21,23,24,26,28,29,31,33,35,36,38,40,42,
%T 43,45,47,48,50,52,54,55,57,59,61,62,64,66,68,69,71,73,74,76,78,80,81,
%U 83,85,87,88,90,92,94,95,97,99,100,102,104,106,107,109,111,113
%N Integer nearest n*sqrt(3).
%C First differences in A214860. - _Philippe Deléham_, Mar 09 2013
%H Vincenzo Librandi, <a href="/A022847/b022847.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n+1) - a(n) = 1 or 2. _Philippe Deléham_, Mar 09 2013
%p a:=n->round(n*sqrt(3)): seq(a(n),n=0..80); # _Muniru A Asiru_, Sep 28 2018
%t Round[Range[0,70]Sqrt[3]] (* _Harvey P. Dale_, Mar 08 2013 *)
%o (Magma) [Round(n*Sqrt(3)): n in [0..60]]; // _Vincenzo Librandi_, Oct 22 2011
%o (PARI) vector(60, n, n--; round(n*sqrt(3))) \\ _G. C. Greubel_, Sep 28 2018
%Y Cf. A214860
%K nonn
%O 0,2
%A _Clark Kimberling_
|
