|
|
A049515
|
|
Starting index of a string of 3 or more consecutive equal digits in decimal expansion of Pi.
|
|
6
|
|
|
154, 178, 602, 763, 764, 765, 766, 856, 984, 1233, 1451, 1590, 1591, 1599, 1699, 1736, 1890, 2279, 2360, 2377, 2441, 2675, 2708, 2929, 2950, 3152, 3435, 3477, 3504, 3810, 3867, 3993, 4001, 4176, 4256, 4436, 4509, 4576, 4752, 4753, 4794, 4903, 4904, 4924
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Digits 3,1,4,... are indexed 1,2,3,...
|
|
LINKS
|
|
|
MATHEMATICA
|
ConsecutiveOccurrences1[alist_, n_] := Flatten @ Position[ Apply[ SameQ, Partition[ alist, n, 1], {1}], True]; ConsecutiveOccurrences1[ First[ RealDigits[Pi, 10, 4928]], 3]
SequencePosition[RealDigits[Pi, 10, 5000][[1]], {x_, x_, x_}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 19 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|