(MAGMAMagma) [Floor((Sqrt(5)-1)*Floor(n*(Sqrt(5)-1))): n in [1..50]]; // G. C. Greubel, May 27 2018
(MAGMAMagma) [Floor((Sqrt(5)-1)*Floor(n*(Sqrt(5)-1))): n in [1..50]]; // G. C. Greubel, May 27 2018
reviewed
approved
proposed
reviewed
editing
proposed
G. C. Greubel, <a href="/A022164/b022164.txt">Table of n, a(n) for n = 1..5000</a>
Table[Floor[(Sqrt[5] - 1)*Floor[(Sqrt[5] - 1)*n]], {n, 1, 50}] (* G. C. Greubel, May 27 2018 *)
(MAGMA) [Floor((Sqrt(5)-1)*Floor(n*(Sqrt(5)-1))): n in [1..50]]; // G. C. Greubel, May 27 2018
approved
editing
proposed
approved
editing
proposed
1, 2, 3, 4, 7, 8, 9, 11, 13, 14, 16, 17, 19, 21, 22, 23, 25, 27, 28, 29, 30, 33, 34, 35, 37, 39, 40, 42, 43, 45, 46, 48, 49, 51, 53, 54, 55, 56, 59, 60, 61, 63, 65, 66, 67, 69, 71, 72, 74, 75, 77, 79, 80, 81, 82, 85, 86, 87, 88, 91, 92, 93, 95, 97, 98, 100
0,1,2
A. Fraenkel and C. Kimberling, "Generalized Wythoff arrays, shuffles and interspersions," Discrete Mathematics 126 (1994) 137-149.
A. Fraenkel and C. Kimberling, <a href="http://dx.doi.org/10.1016/0012-365X(94)90259-3">Generalized Wythoff arrays, shuffles and interspersions</a>, Discrete Mathematics 126 (1994) 137-149.
(PARI) a(n) = floor((sqrt(5)-1)*floor((sqrt(5)-1)*n)); \\ Michel Marcus, Mar 05 2014
Cf. A022165.
More terms from Michel Marcus, Mar 05 2014
approved
editing
Clark Kimberling (ck6(AT)evansville.edu)
nonn,new
nonn
Clark Kimberling (ck6@cedar.(AT)evansville.edu)