OFFSET
1,3
COMMENTS
MATHEMATICA
re=RealDigits[N[Pi, 300]][[1]]; b={}; Do[r=re[[n]]; If[r<(re[[n-1]]+re[[n+1]])/2, b=Append[b, r]], {n, 2, 299}]; A108534=b
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Jun 08 2005
STATUS
approved