login
Numbers n such that string 8,5 occurs in the base 10 representation of n but not of n+1.
0

%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_