Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 May 17 2021 18:55:44
%S 98,198,298,398,498,598,698,798,898,989,998,1098,1198,1298,1398,1498,
%T 1598,1698,1798,1898,1989,1998,2098,2198,2298,2398,2498,2598,2698,
%U 2798,2898,2989,2998,3098,3198,3298,3398,3498,3598
%N Numbers n such that string 9,8 occurs in the base 10 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{9,8}]>0,1,0],{n,3600}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 17 2021 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_