|
PROG
|
(PARI) lucas(n) = fibonacci(n+1) + fibonacci(n-1);
vector(10, n, 2^(lucas(n+1)-2)*3^(lucas(n)-1) ) \\ G. C. Greubel, Jul 22 2019
(MAGMA) [2^(Lucas(n+1)-2)*3^(Lucas(n)-1): n in [1..10]]; // G. C. Greubel, Jul 22 2019
(Sage) [2^(lucas_number2(n+1, 1, -1)-2)*3^(lucas_number2(n, 1, -1)-1) for n in (1..10)] # G. C. Greubel, Jul 22 2019
(GAP) List([1..10], n-> 2^(Lucas(1, -1, n+1)[2]-2)*3^(Lucas(1, -1, n)[2]-1)); # G. C. Greubel, Jul 22 2019
|