%I #8 Dec 03 2022 17:49:09

%S 4,9,6,9,9,8,6,6,8,9,9,9,7,8,9,9,9,3,8,6,6,8,8,8,5,4,7,9,8,8,3,8,3,7,

%T 9,8,6,9,8,3,7,5,9,8,8,8,7,5,8,7,9,8,9,6,9,9,9,8,9,9,9,6,8,7,6,8,8,8,

%U 6,7,2,9,9,6,8,9,6,8,5,8,9,6,7,6,9,4,7,7,8,6,7,5,9,9,8,9,5,9,7,5,6,9,9,6,5

%N Peaks in digital expansions of Pi: digits which are larger than their neighbors.

%F d[i]>d[i+1]&&d[i]>d[i-1]

%t Select[Partition[RealDigits[Pi,10,500][[1]],3,1],#[[1]]<#[[2]]>#[[3]]&][[All,2]] (* _Harvey P. Dale_, Dec 03 2022 *)

%K nonn,base

%O 1,1

%A _Zak Seidov_, Apr 25 2005