The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A083602 Starting positions of strings of four 1's in the decimal expansion of Pi. 1
 12700, 16732, 32788, 32789, 37230, 43154, 48665, 55716, 87323, 91195, 92410, 93535, 120459, 120460, 123036, 123954, 140159, 141899, 141900, 145690, 149927, 159573, 172049, 175018, 191909, 209140, 215209, 248918, 255945, 255946, 255947 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Table of n, a(n) for n=1..31. Dave Andersen, Pi-Search Page Eric Weisstein's World of Mathematics, Pi Digits. Index entries for sequences related to the number Pi MATHEMATICA \$MaxPrecision=10^8; a=RealDigits[Pi, 10, 3*9! ]; lst={}; Do[b=a[[1]][[n]]; c=a[[1]][[n+1]]; d=a[[1]][[n+2]]; e=a[[1]][[n+3]]; If[b==1&&c==1&&d==1&&e==1, AppendTo[lst, n-1]], {n, 7!, 3*9!-3}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 07 2009 *) a=RealDigits[Pi, 10, 9! ]; lst={}; Do[b=a[[1]][[n]]; c=a[[1]][[n+1]]; d=a[[1]][[n+2]]; e=a[[1]][[n+3]]; If[b==1&&c==1&&d==1&&e==1, AppendTo[lst, n-1]], {n, 9!-5}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 05 2009 *) Flatten[Position[Partition[RealDigits[Pi, 10, 260000][[1]], 4, 1], _?(#=={1, 1, 1, 1}&)]-1] (* Harvey P. Dale, Apr 21 2011 *) SequencePosition[RealDigits[Pi, 10, 256000][[1]], {1, 1, 1, 1}][[All, 1]]-1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 26 2020 *) CROSSREFS Cf. A050209 (three 1's), A083603 (five 1's). Sequence in context: A254799 A254806 A253815 * A105655 A124411 A256809 Adjacent sequences: A083599 A083600 A083601 * A083603 A083604 A083605 KEYWORD base,nonn AUTHOR Rick L. Shepherd, May 01 2003 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 15 02:08 EDT 2024. Contains 374323 sequences. (Running on oeis4.)