login
A105275
Minimal peaks in digital expansions of Pi: positions of peaks equal to 1.
1
855, 1012, 1220, 2564, 3967, 3983, 4556, 6600, 7033, 7771, 9987, 10432, 12236, 15327, 16217, 17540, 17769, 18101, 19613, 19806, 20785, 21865, 22213, 23237, 23365, 23840, 25992, 26935, 28184, 28487, 28489, 29460, 30083, 31138, 32096
OFFSET
1,1
LINKS
FORMULA
d[i]=1&&d[i+1]=d[i-1]=0
MATHEMATICA
SequencePosition[RealDigits[Pi, 10, 33000][[1]], {0, 1, 0}][[All, 1]]+1 (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Oct 31 2018 *)
CROSSREFS
Sequence in context: A251050 A085323 A185639 * A100969 A183998 A209502
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 25 2005
STATUS
approved