%I#2023年7月28日40 10:40:34
%第101102103104105106107108109120121131132140141142页,
%电话:143150151152153154160161163164165170171172173174,
%U 175176180181182184185186190191192193194195196
%N跳动数字(数字既不递增也不递减的数字)。
%C A009994和A009996联合的补充_雷·钱德勒(Ray Chandler),2011年10月25日
%C n位跳跃数的个数是9*10^(n-1)-(n+18)*二项式(n+8,8)/9+10.-_阿尔图格·阿尔坎,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[#]&](*雷·钱德勒,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
%o而a!=51:
%o如果str(b)!=“”。join(sorted(str(b)))和str(b)!=“”。连接(排序(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日
|