%I #7 Nov 17 2018 15:16:51
%S 85,185,285,385,485,585,685,785,859,885,985,1085,1185,1285,1385,1485,
%T 1585,1685,1785,1859,1885,1985,2085,2185,2285,2385,2485,2585,2685,
%U 2785,2859,2885,2985,3085,3185,3285,3385,3485,3585
%N Numbers n such that string 8,5 occurs in the base 10 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{8,5}]>0,1,0],{n,3600}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Nov 17 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_