login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


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 | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 7 10:38 EST 2021. Contains 341869 sequences. (Running on oeis4.)