|
%I #9 Sep 08 2022 08:45:50
%S 0,0,1,2,3,4,4,5,6,7,8,9,9,10,11,12,13,13,14,15,16,17,18,18,19,20,21,
%T 22,23,23,24,25,26,27,27,28,29,30,31,32,32,33,34,35,36,36,37,38,39,40,
%U 41,41,42,43,44,45,46,46,47,48,49,50,50,51,52,53,54,55,55,56,57,58,59,59
%N a(n) = floor(n*(sqrt(5)-sqrt(2))).
%H Vincenzo Librandi, <a href="/A172266/b172266.txt">Table of n, a(n) for n = 0..1000</a>
%t With[{c = Sqrt[5] - Sqrt[2]}, Floor[c Range[0, 80]]] (* _Vincenzo Librandi_, Aug 01 2013 *)
%o (Magma) [Floor(n*(Sqrt(5)-Sqrt(2))): n in [0..80]]; // _Vincenzo Librandi_, Aug 01 2013
%o (PARI) a(n)=(sqrt(5)-sqrt(2))*n\1 \\ _Charles R Greathouse IV_, Sep 02 2015
%Y Cf. A172264, A172267-A172270, A172272-A172278.
%K nonn,easy
%O 0,4
%A _Vincenzo Librandi_, Jan 30 2010
|
