[go: up one dir, main page]

login
A050208
Starting positions of strings of 2 1's in the decimal expansion of Pi.
9
94, 153, 154, 174, 362, 395, 427, 437, 445, 494, 709, 758, 846, 921, 983, 984, 1129, 1185, 1349, 1503, 1534, 1656, 1849, 1896, 2458, 2497, 2724, 2740, 2779, 2904, 3253, 3398, 3493, 3503, 3504, 3534, 3735, 3822, 3844, 3847, 3963, 3992, 3993
OFFSET
1,1
LINKS
MATHEMATICA
a=RealDigits[Pi, 10, 8! ]; lst={}; Do[b=a[[1]][[n]]; c=a[[1]][[n+1]]; If[b==1&&c==1, AppendTo[lst, n-1]], {n, 8!-1}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 02 2009 *)
Flatten[Position[Partition[RealDigits[Pi, 10, 4000][[1]], 2, 1], _?(#=={1, 1}&) ]]-1 (* Harvey P. Dale, Dec 01 2013 *)
SequencePosition[RealDigits[Pi, 10, 4000][[1]], {1, 1}][[;; , 1]]-1 (* Harvey P. Dale, Jul 08 2024 *)
KEYWORD
nonn,base
EXTENSIONS
Edited by N. J. A. Sloane, Aug 10 2010
STATUS
approved