cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A083627 Starting positions of strings of five 6's in the decimal expansion of Pi.

Original entry on oeis.org

48439, 102387, 140744, 250129, 252499, 252500, 309379, 363995, 375601, 450347, 483202, 595298, 722275, 850138, 964604, 1109283, 1268703, 1367754, 1373818, 1381298, 1676919, 1717341, 1819654, 1901872, 1924024, 2088622, 2162433
Offset: 1

Views

Author

Rick L. Shepherd, May 03 2003

Keywords

Crossrefs

Cf. A083626 (four 6's), A083628 (six 6's).

Programs

  • Mathematica
    SequencePosition[RealDigits[Pi,10,2163000][[1]],{6,6,6,6,6}][[All,1]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 12 2019 *)

A083625 Starting positions of strings of three 6's in the decimal expansion of Pi.

Original entry on oeis.org

2440, 3151, 4000, 4435, 5403, 6840, 10163, 10335, 10591, 13594, 15888, 16109, 18504, 20231, 21880, 21881, 23057, 23511, 24566, 25948, 26212, 27703, 27841, 29666, 29868, 29869, 32427, 32428, 33363, 36353, 38132, 40370, 40650, 43523
Offset: 1

Views

Author

Rick L. Shepherd, May 03 2003

Keywords

Crossrefs

Cf. A050245 (two 6's), A083626 (four 6's).

Programs

  • Mathematica
    q=9!;z=6;a=RealDigits[Pi,10,q];lst={};Do[b=a[[1]][[n]];c=a[[1]][[n+1]];d=a[[1]][[n+2]];If[b==z&&c==z&&d==z,AppendTo[lst,n-1]],{n,q-2}];lst (* Vladimir Joseph Stephan Orlovsky, Jun 19 2009 *)
Showing 1-2 of 2 results.