|
%I #16 Sep 08 2022 08:44:46
%S 2,5,7,10,13,15,18,21,23,26,29,31,34,37,39,42,44,47,50,52,55,58,60,63,
%T 66,68,71,74,76,79,82,84,87,89,92,95,97,100,103,105,108,111,113,116,
%U 119,121,124,126,129,132,134,137,140,142,145,148,150,153,156
%N Beatty sequence for sqrt(7).
%H Vincenzo Librandi, <a href="/A022841/b022841.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Be#Beatty">Index entries for sequences related to Beatty sequences</a>
%F a(n) = floor(n*sqrt(7)). - _G. C. Greubel_, Sep 28 2018
%p a:=n->floor(n*sqrt(7)): seq(a(n),n=1..70); # _Muniru A Asiru_, Sep 28 2018
%t Table[Floor[n*Sqrt[7]], {n,1,60}] (* _G. C. Greubel_, Sep 28 2018 *)
%o (Magma) [Floor(n*Sqrt(7)): n in [1..60]]; // _Vincenzo Librandi_, Oct 24 2011
%o (PARI) vector(60, n, floor(n*sqrt(7))) \\ _G. C. Greubel_, Sep 28 2018
%K nonn,easy
%O 1,1
%A _Clark Kimberling_
%E Offset changed from 0 to 1 by _Vincenzo Librandi_, Oct 24 2011
|
