A102524 -id:A102524 - cp's OEIS frontend

A102523 Lengths of runs in A100060.

1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 1, 3, 1, 2, 1, 1, 1, 1, 2, 1, 3, 2, 1, 1, 1, 2, 2, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 3, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 3, 1, 3, 1, 1, 2, 1, 2

Offset: 1

Gary W. Adamson and Robert G. Wilson v, Jan 13 2005

nonn

The first case of exactly n consecutive ones occurs in A100060 at 1, 10, 16, 688, 1246, 29237, 13898, ....

The first case of exactly n consecutive zeros occurs in A100060 at 2, 6, 29, 276, 1529, 34277, ....

Cf. A100060, A102524.

zz = { (* the list of values in the link *) }; yy = Drop[zz, 1] - Drop[zz, -1]; xx = Drop[yy, 1] - Drop[yy, -1]; Length /@ Split[Join[{1}, Table[ If[xx[[n]] > 0, 1, 0], {n, 145}]]]

A152566 Decimal expansion of log_3(10).

Original entry on oeis.org

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

Offset: 1

N. J. A. Sloane, Oct 28 2009

			2.0959032742893846042965675220214012506075180067979301169235...

Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Index entries for transcendental numbers

Cf. A102524, A100831, A113209, A102525, A152565, A113210, A152566, A152549, A152564.

RealDigits[Log[3, 10], 10, 120][[1]] (* Vincenzo Librandi, Aug 29 2013 *)

log(10)/log(3) \\ Charles R Greathouse IV, Aug 06 2020

cp's OEIS Frontend

A102523 Lengths of runs in A100060.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica