|
%I #20 Sep 08 2022 08:45:50
%S 0,4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,69,73,77,81,85,89,93,
%T 97,101,105,109,113,117,121,125,129,133,138,142,146,150,154,158,162,
%U 166,170,174,178,182,186,190,194,198,202
%N a(n) = floor(n*(sqrt(7) + sqrt(2))).
%C Also integer part of n*4.0599648734..., where the constant is the largest root of x^4 - 18*x^2 + 25.
%H Vincenzo Librandi, <a href="/A172326/b172326.txt">Table of n, a(n) for n = 0..1000</a>
%p a:=n->floor(n*(sqrt(7)+sqrt(2))): seq(a(n),n=0..60); # _Muniru A Asiru_, Sep 28 2018
%t With[{c = Sqrt[7] + Sqrt[2]}, Floor[c Range[0, 60]]] (* _Harvey P. Dale_, Mar 23 2011 *)
%o (Magma) [Floor(n*(Sqrt(7)+Sqrt(2))): n in [0..60]];
%o (PARI) vector(60, n, n--; floor(n*(sqrt(7)+sqrt(2)))) \\ _G. C. Greubel_, Sep 28 2018
%Y Cf. A110117, A172323-A172332, A172334, A172336-A172338.
%K nonn,easy,less
%O 0,2
%A _Vincenzo Librandi_, Feb 01 2010
|
