|
%I #9 May 18 2017 02:37:36
%S 1,4,32,153,2798,197282,392458839,68701093784946,
%T 26589104218033177611804,1824800382950333667240931155126914915,
%U 48519278097695351677170017554626182187607010493656860644716
%N Sum of the first n Lucas numbers, in ascending order, as bases, with the same, in descending order, as exponents.
%F a(n) = Sum_{i=1..n} (A000204(i))^A000204(n-i+1).
%e For the Lucas sequence, starting L(1)=1, L(2)=3:
%e a(1) = L(1)^L(1) = 1^1 = 1.
%e a(2) = L(1)^L(2) + L(2)^L(1) = 1^3 + 3^1 = 4.
%e a(3) = L(1)^L(3) + L(2)^L(2) + L(3)^L(1) = 1^4 + 3^3 + 4^1 = 32.
%e a(4) = L(1)^L(4) + L(2)^L(3) + L(3)^L(2) + L(4)^L(1) = 1^7 + 3^4 + 4^3 + 7^1 = 153.
%e a(5) = 1^11 + 3^7 + 4^4 + 7^3 + 11^1 = 2798.
%e a(6) = 1^18 + 3^11 + 4^7 + 7^4 + 11^3 + 18^1 = 197282.
%e a(7) = 1^29 + 3^18 + 4^11 + 7^7 + 11^4 + 18^3 + 29^1 = 392458839.
%e a(8) = 1^47 + 3^29 + 4^18 + 7^11 + 11^7 + 18^4 + 29^3 + 47^1 = 68701093784946.
%e a(9) = 1^76 + 3^47 + 4^29 + 7^18 + 11^11 + 18^7 + 29^4 + 47^3 + 76^1 = 26589104218033177611804.
%e a(10) = 1^123 + 3^76 + 4^47 + 7^29 + 11^18 + 18^11 + 29^7 + 47^4 + 76^3 + 123^1 = 1824800382950333667240931155126914915.
%e a(11) = 1^199 + 3^123 + 4^76 + 7^47 + 11^29 + 18^18 + 29^11 + 47^7 + 76^4 + 123^3 + 199^1 = 48519278097695351677170017554626182187607010493656860644716.
%t Table[Sum[LucasL[k, 1]^(LucasL[n - k + 1, 1]), {k, 1, n}], {n, 1, 10}] (* _G. C. Greubel_, May 18 2017 *)
%o (PARI) for(n=1,10, print1(sum(k=1,n, (fibonacci(k+1)+fibonacci(k-1))^(fibonacci(n-k+2)+fibonacci(n-k))), ", ")) \\ _G. C. Greubel_, May 18 2017
%Y Cf. A000204.
%K easy,nonn
%O 1,2
%A _Jonathan Vos Post_, Jan 05 2006
| 