A296491 -id:A296491 - cp's OEIS frontend

A296469 Decimal expansion of ratio-sum for A295862; see Comments.

3, 8, 7, 0, 2, 3, 6, 0, 7, 9, 7, 9, 5, 9, 5, 9, 3, 2, 3, 2, 8, 2, 0, 5, 2, 3, 1, 1, 7, 8, 3, 9, 9, 5, 0, 1, 3, 8, 5, 6, 7, 3, 9, 8, 3, 0, 0, 9, 7, 2, 3, 1, 9, 9, 4, 3, 0, 1, 0, 8, 7, 6, 5, 5, 9, 5, 8, 0, 5, 4, 5, 4, 0, 6, 7, 3, 8, 5, 3, 9, 0, 5, 8, 8, 6, 2

Offset: 1

Clark Kimberling, Dec 18 2017

Suppose that A = (a(n)), for n >= 0, is a sequence, and g is a real number such that a(n)/a(n-1) -> g. The ratio-sum for A is |a(1)/a(0) - g| + |a(2)/a(1) - g| + ..., assuming that this series converges. For A = A295862, we have g = (1 + sqrt(5))/2, the golden ratio (A001622). See A296425-A296434 for related ratio-sums and A296452-A296461 for related limiting power-ratios.  Guide to more ratio-sums and limiting power-ratios:
****
Sequence A    ratio-sum for A     limiting power-ratio for A
A295862           A296469                 A296470
A295947           A296471                 A296472
A295948           A296473                 A296474
A295949           A296475                 A296476
A295950           A296477                 A296478
A295951           A296479                 A296480
A295952           A296481                 A296482
A295953           A296483                 A296848
A295960           A296485                 A296486
A293076           A296487                 A296488
A293358           A296489                 A296490
A294170           A296491                 A296492
A296555           A296493                 A296494
A294414           A296495                 A296496
A294541           A296497                 A296498
A294546           A296499                 A296500
A294552           A296501                 A296494
A296776           A298171                 A298172
A294553           A296503                 A296504
A296556           A296565                 A296566
A296557           A296567                 A296568
A296558           A296569                 A296570

			ratio-sum = 6.21032710946618494227967...

Cf. A001622, A296284, A296470.

a[0] = 1; a[1] = 3; b[0] = 2; b[1 ] = 4; b[2] = 5;
a[n_] := a[n] = a[n - 1] + a[n - 2] + b[n];
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}]; (* A295862 *)
g = GoldenRatio; s = N[Sum[- g + a[n]/a[n - 1], {n, 1, 1000}], 200]
Take[RealDigits[s, 10][[1]], 100]  (* A296469 *)

A294170 Solution of the complementary equation a(n) = a(n-1) + a(n-2) + b(n) + 2*n, where a(0) = 1, a(1) = 2, b(0) = 3, b(1) = 4, b(2) = 5, and (a(n)) and (b(n)) are increasing complementary sequences.

Original entry on oeis.org

1, 2, 12, 26, 53, 97, 171, 292, 490, 813, 1337, 2187, 3564, 5794, 9404, 15247, 24703, 40005, 64766, 104832, 169662, 274561, 444294, 718929, 1163300, 1882309, 3045692, 4928087, 7973868, 12902047, 20876010, 33778155, 54654266, 88432525, 143086898, 231519533

Offset: 0

Clark Kimberling, Feb 10 2018

The increasing complementary sequences a() and b() are uniquely determined by the titular equation and initial values. a(n)/a(n-1) -> (1 + sqrt(5))/2 = golden ratio (A001622). See A296245 for a guide to related sequences.

			a(0) = 1, a(1) = 2, b(0) = 3, b(1) = 4, b(2) = 5
a(2) = a(0) + a(1) + b(2) + 4 = 12
Complement: (b(n)) = (3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, ...)

Clark Kimberling, Table of n, a(n) for n = 0..2000
Clark Kimberling, Complementary equations, J. Int. Seq. 19 (2007), 1-13.

Cf. A296245, A296491, A296492.

a[0] = 1; a[1] = 2; b[0] = 3; b[1] = 4; b[2] = 5;
a[n_] := a[n] = a[n - 1] + a[n - 2] + b[n] + 2 n;
j = 1; While[j < 16, 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}];  (* A294170 *)

A296492 Decimal expansion of limiting power-ratio for A294170; see Comments.

Original entry on oeis.org

1, 1, 2, 2, 0, 7, 1, 2, 9, 4, 7, 8, 7, 2, 0, 1, 9, 1, 3, 1, 3, 5, 6, 3, 9, 9, 3, 2, 1, 2, 0, 7, 4, 4, 8, 2, 2, 3, 5, 2, 3, 0, 1, 4, 9, 2, 6, 1, 9, 0, 4, 2, 5, 0, 7, 7, 3, 3, 5, 9, 0, 7, 6, 1, 3, 8, 9, 6, 1, 1, 3, 4, 2, 2, 3, 5, 4, 8, 8, 0, 1, 0, 7, 9, 7, 0

Offset: 2

Clark Kimberling, Dec 20 2017

Suppose that A = (a(n)), for n >= 0, is a sequence, and g is a real number such that a(n)/a(n-1) -> g. The ratio-sum for A is |a(1)/a(0) - g| + |a(2)/a(1) - g| + ..., assuming that this series converges. For A = A294170, we have g = (1 + sqrt(5))/2, the golden ratio (A001622). See the guide at A296469 for related sequences.

			limiting power-ratio = 11.22071294787201913135639932120744822352...

Cf. A001622, A294381, A296284, A296491.

a[0] = 1; a[1] = 2; b[0] = 3; b[1] = 4; b[2] = 5;
a[n_] := a[n] = a[n - 1] + a[n - 2] + b[n] + 2 n;
j = 1; While[j < 16, k = a[j] - j - 1;
While[k < a[j + 1] - j + 1, b[k] = j + k + 2; k++]; j++];
u = Table[a[n], {n, 0, k}];  (* A294170 *)
z = 2000; g = GoldenRatio; h = Table[N[a[n]/g^n, z], {n, 0, z}];
StringJoin[StringTake[ToString[h[[z]]], 41], "..."]
Take[RealDigits[Last[h], 10][[1]], 120]   (* A296492 *)

cp's OEIS Frontend

A296469 Decimal expansion of ratio-sum for A295862; see Comments.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A294170 Solution of the complementary equation a(n) = a(n-1) + a(n-2) + b(n) + 2*n, where a(0) = 1, a(1) = 2, b(0) = 3, b(1) = 4, b(2) = 5, and (a(n)) and (b(n)) are increasing complementary sequences.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A296492 Decimal expansion of limiting power-ratio for A294170; see Comments.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica