|
%I #7 Jul 14 2019 11:58:55
%S 57,157,257,357,457,557,579,657,757,857,957,1057,1157,1257,1357,1457,
%T 1557,1579,1657,1757,1857,1957,2057,2157,2257,2357,2457,2557,2579,
%U 2657,2757,2857,2957,3057,3157,3257,3357,3457,3557
%N Numbers n such that string 5,7 occurs in the base 10 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{5,7}]>0,1,0],{n,4000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 14 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
