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.

A083642 Starting positions of strings of three 9's in the decimal expansion of Pi.

Original entry on oeis.org

762, 763, 764, 765, 2949, 7759, 8527, 9962, 11197, 11382, 13019, 16687, 17119, 17561, 17988, 17989, 18680, 19437, 19438, 19446, 19447, 19448, 19748, 21579, 22309, 22753, 22754, 23989, 24107, 25584, 26069, 26490, 27602, 28122, 28320
Offset: 1

Views

Author

Rick L. Shepherd, May 05 2003

Keywords

Crossrefs

Cf. A050272 (two 9's), A083643 (four 9's).

Programs

  • Mathematica
    Transpose[ StringPosition[ StringDrop[ ToString[ N[Pi, 28588]], 2], "999"]][[1]]
    Flatten[With[{p=Partition[RealDigits[Pi,10,30000][[1]],3,1]},Position[p,{9,9,9}]]]-1 (* Harvey P. Dale, Jan 05 2013 *)
    With[{pid=RealDigits[Pi,10,30000][[1]]},SequencePosition[pid,{9,9,9}]][[;;,1]]-1 (* Harvey P. Dale, Feb 18 2025 *)

A083644 Starting positions of strings of five 9's in the decimal expansion of Pi.

Original entry on oeis.org

762, 763, 19446, 56988, 161862, 193034, 193035, 220568, 456189, 626757, 1104484, 1143176, 1200370, 1240405, 1437382, 1500808, 1532245, 1593224, 1623041, 1681741, 1722776, 1722777, 1722778, 1985813, 1985814, 2280176, 2474024
Offset: 1

Views

Author

Rick L. Shepherd, May 06 2003

Keywords

Crossrefs

Cf. A083643 (four 9's), A083645 (six 9's).

Programs

  • Mathematica
    Module[{nn=25*10^5,pid},pid=RealDigits[Pi,10,nn][[1]];SequencePosition[pid,{9,9,9,9,9}]][[;;,1]]-1 (* Harvey P. Dale, Dec 02 2024 *)
Showing 1-2 of 2 results.