|
%I #19 Sep 08 2022 08:45:50
%S 0,4,9,14,18,23,28,33,37,42,47,52,56,61,66,70,75,80,85,89,94,99,104,
%T 108,113,118,123,127,132,137,141,146,151,156,160,165,170,175,179,184,
%U 189,193,198,203,208,212,217,222,227,231,236
%N a(n) = floor(n*(sqrt(11) + sqrt(2))).
%C Also integer part of n*4.7308383527..., where the constant is the largest root of x^4 - 26*x^2 + 81.
%H Vincenzo Librandi, <a href="/A172329/b172329.txt">Table of n, a(n) for n = 0..1000</a>
%p a:=n->floor(n*(sqrt(11)+sqrt(2))): seq(a(n),n=0..60); # _Muniru A Asiru_, Sep 28 2018
%t With[{c=Sqrt[11]+Sqrt[2]},Table[Floor[c n], {n,0,50}]] (* _Harvey P. Dale_, Mar 12 2011 *)
%o (Magma) [Floor(n*(Sqrt(11)+Sqrt(2))): n in [0..60]];
%o (PARI) vector(60, n, n--; floor(n*(sqrt(11)+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
|
