|
%I #10 Oct 31 2018 17:18:36
%S 855,1012,1220,2564,3967,3983,4556,6600,7033,7771,9987,10432,12236,
%T 15327,16217,17540,17769,18101,19613,19806,20785,21865,22213,23237,
%U 23365,23840,25992,26935,28184,28487,28489,29460,30083,31138,32096
%N Minimal peaks in digital expansions of Pi: positions of peaks equal to 1.
%H Harvey P. Dale, <a href="/A105275/b105275.txt">Table of n, a(n) for n = 1..1000</a>
%F d[i]=1&&d[i+1]=d[i-1]=0
%t SequencePosition[RealDigits[Pi,10,33000][[1]],{0,1,0}][[All,1]]+1 (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 31 2018 *)
%K nonn,base
%O 1,1
%A _Zak Seidov_, Apr 25 2005
|
