|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|