A296432 Decimal expansion of ratio-sum for A296284; see Comments.
6, 2, 1, 0, 3, 2, 7, 1, 0, 9, 4, 6, 6, 1, 8, 4, 9, 4, 2, 2, 7, 9, 6, 7, 9, 0, 4, 8, 4, 0, 2, 4, 2, 2, 4, 6, 0, 5, 4, 5, 3, 6, 8, 4, 1, 5, 7, 0, 9, 5, 7, 9, 1, 2, 3, 4, 0, 6, 9, 2, 7, 3, 5, 8, 7, 0, 5, 4, 0, 4, 4, 9, 1, 7, 0, 1, 8, 9, 8, 8, 8, 9, 6, 2, 7, 1
Offset: 1
Examples
Ratio-sum = 6.21032710946618494227967...
Programs
-
Mathematica
a[0] = 1; a[1] = 2; b[0] = 3; a[n_] := a[n] = a[n - 1] + a[n - 2] + n*b[n - 2]; j = 1; While[j < 13, k = a[j] - j - 1; While[k < a[j + 1] - j + 1, b[k] = j + k + 2; k++]; j++]; Table[a[n], {n, 0, k}]; (* A296284 *) g = GoldenRatio; s = N[Sum[- g + a[n]/a[n - 1], {n, 1, 1000}], 200] Take[RealDigits[s, 10][[1]], 100] (* A296432 *)
Comments