login
A044811
Numbers n such that string 9,8 occurs in the base 10 representation of n but not of n+1.
0
98, 198, 298, 398, 498, 598, 698, 798, 898, 989, 998, 1098, 1198, 1298, 1398, 1498, 1598, 1698, 1798, 1898, 1989, 1998, 2098, 2198, 2298, 2398, 2498, 2598, 2698, 2798, 2898, 2989, 2998, 3098, 3198, 3298, 3398, 3498, 3598
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A105405 A341180 A044430 * A063369 A038863 A203091
KEYWORD
nonn,base
STATUS
approved