%I#10 2021年8月23日21:45:22
%S 15,5115150215251315351415451510551615651715751815,
%电话:85191595110151051151150121512511315135141511500,
%电话:1615165117151751181518511915195120152051
%N数字k,使得1和5并列出现在k的十进制表示中,但不出现在k-1中。
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{1,5}]>0||SequenceCount[Integer Digits[0],{5,1}]>0,1,0],{n,2100}],{0,1}][[All,2](*需要Mathematica版本10或更高版本*)(*Harvey P.Dale_,2020年12月15日*)
%K nonn,基础
%O 1,1号机组
%百灵鸟金伯利_
|