editing
approved
editing
approved
Select[Partition[RealDigits[Pi, 10, 500][[1]], 3, 1], #[[1]]<#[[2]]>#[[3]]&][[All, 2]] (* Harvey P. Dale, Dec 03 2022 *)
approved
editing
editing
approved
Peaks in digital expansions of piPi: digits which are larger than their neighbors.
approved
editing
_Zak Seidov (zakseidov(AT)yahoo.com), _, Apr 25 2005
proposed
approved
nonn,base,new
approved
proposed
Peaks in digital expansions of pi: digits which are larger than their neighbors.
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, 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, 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
1,1
d[i]>d[i+1]&&d[i]>d[i-1]
nonn
Zak Seidov (zakseidov(AT)yahoo.com), Apr 25 2005
approved