%I#40 2023年7月28日10:40:34

%S 101102103104105106107108109120121130131132140141142，

%电话143150151152153154160161162163165170171172173174，

%U 175176180181182184185186190191192193194195196

%N跳动数字（数字既不递增也不递减的数字）。

%C A009994和A009996联合的补充。-雷·钱德勒，2011年10月25日

%C n位跳跃数的个数是9*10^（n-1）-（n+18）*二项式（n+8，8）/9+10。-Altug Alkan，2018年10月2日

%H David F.Marrs，n的表，n=1..10000的a（n）</a>

%H Euler项目，<a href=“http://projecteuler.net/problem=113“>Non-bouncy数字问题113</a>

%t选择[Range[0200]！LessEqual@@IntegerDigits[#]&&！GreaterEqual@@IntegerDigits[#]&]（*_Ray Chandler_，2011年10月25日*）

%t bnQ[n_]：=模块[{did=Differences[IntegerDigits[n]]}，计数[did，_；选择[范围[100200]，bnQ]（*_哈维·P·戴尔，2020年6月13日*）

%o（Python）

%o a=1

%o b=100

%哦，等一下！= 51:

%o如果str（b）！=“”。join（sorted（str（b）））和str（b）！=“”.join（sorted（str（b）））[：：-1]：

%o打印（b）

%o a+=1

%o b+=1

%o#_David F.Marrs_，2018年9月25日

%o（Python）

%o从itertools导入计数，islice

%o定义A152054_gen（startvalue=1）：#术语生成器>=startvalue

%o表示计数中的n（max（startvalue，1））：

%o l=len（s：=元组（str（n）中d的int（d））

%o对于范围（1，l-1）中的i：

%o如果（s[i-1]-s[i]）*（s[i]-s[i+1]）<0：

%o产量n

%o中断

%o A152054_list=list（岛屿（A152054_ gen（），30））#_Chai Wah Wu_，2023年7月28日

%Y参考A152464。-_Jon E.Schoenfield_2008年12月6日

%Y参见A009994、A009996、A204692。

%K nonn，基础，简单

%O 1,1号机组

%杰罗姆·阿贝拉（Jerome.Abela（AT）gmail.com），2008年11月22日

%E更多条款，来自Jon E.Schoenfield_，2008年12月6日