OFFSET
1,1
FORMULA
d[i]>d[i+1]&&d[i]>d[i-1]
MATHEMATICA
Select[Partition[RealDigits[Pi, 10, 500][[1]], 3, 1], #[[1]]<#[[2]]>#[[3]]&][[All, 2]] (* Harvey P. Dale, Dec 03 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Apr 25 2005
STATUS
approved