A228042 Decimal expansion of sum of reciprocals, row 4 of Wythoff array, W = A035513.
2, 8, 6, 6, 2, 8, 5, 5, 5, 4, 1, 4, 3, 9, 2, 5, 1, 7, 7, 2, 4, 0, 0, 3, 7, 6, 7, 6, 3, 9, 6, 4, 2, 3, 9, 3, 2, 2, 9, 6, 3, 5, 0, 4, 4, 5, 7, 7, 3, 2, 2, 8, 2, 8, 8, 3, 1, 8, 5, 1, 2, 7, 1, 7, 7, 5, 0, 4, 3, 4, 3, 9, 6, 6, 5, 5, 6, 1, 1, 2, 7, 8, 7, 1, 8, 0
Offset: 0
Examples
1/9 + 1/15 + 1/24 + ... = 0.28662855541439251772400376763964239322963...
Programs
-
Mathematica
f[n_] := f[n] = Fibonacci[n]; g = GoldenRatio; w[n_, k_] := w[n, k] = f[k + 1]*Floor[n*g] + f[k]*(n - 1); n = 4; Table[w[n, k], {n, 1, 5}, {k, 1, 5}] r = N[Sum[1/w[n, k], {k, 1, 2000}], 120] RealDigits[r, 10]
Formula
Equals A079586/3 - 5/6. - Amiram Eldar, May 22 2021
Comments