A215941 Decimal expansion of Sum_{n = 1 .. infinity } 1 / L(n)^n where L(n) is the n-th Lucas number.
1, 1, 2, 7, 1, 5, 8, 8, 4, 2, 9, 1, 1, 4, 1, 2, 6, 4, 3, 6, 6, 4, 9, 8, 5, 6, 3, 3, 7, 4, 9, 3, 5, 6, 4, 2, 9, 1, 4, 5, 0, 8, 5, 2, 8, 6, 3, 1, 1, 9, 4, 0, 7, 6, 2, 4, 3, 8, 0, 5, 9, 4, 2, 3, 0, 3, 8, 6, 8, 1, 8, 4, 7, 0, 3, 9, 7, 1, 3, 8, 0, 6, 9, 5, 6, 8, 1, 7, 3, 4, 9, 9, 8, 5, 2, 0, 3, 7, 5, 7, 2, 8, 1, 9, 3
Offset: 1
Examples
1.12715884291141264366... = 1/1^1 + 1/3^2+ 1/4^3+ 1/7^4 +1/11^5 +1/18^6 +….
Crossrefs
Cf. A000204.
Programs
-
Mathematica
RealDigits[N[Sum[1/LucasL[n]^n, {n, 1, 105}], 105]][[1]]