|
%I #29 Apr 09 2021 22:39:06
%S 0,2,4,6,8,10,12,14,15,17,19,21,23,25,27,28,30,32,34,36,38,40,41,43,
%T 45,47,49,51,53,54,56,58,60,62,64,66,67,69,71,73,75,77,79,80,82,84,86,
%U 88,90,92,93,95,97,99,101,103,105,106,108,110,112,114,116,118,119
%N a(n) = 2*n - floor(n*r), where r=Pi-3.
%H Ivan Panchenko, <a href="/A195125/b195125.txt">Table of n, a(n) for n = 0..10000</a>
%t f[n_] := 2 n - Floor[n (Pi - 3)]; Array[f, 65, 0] (* _Ivan Panchenko_, Nov 10 2013 *)
%o (Maxima) makelist(2*n - floor(n*(%pi - 3)),n,0,64); /* _Ivan Panchenko_, Nov 10 2013 */
%K nonn
%O 0,2
%A _Clark Kimberling_, Sep 09 2011
|
