login
A044798
Numbers n such that string 8,5 occurs in the base 10 representation of n but not of n+1.
0
85, 185, 285, 385, 485, 585, 685, 785, 859, 885, 985, 1085, 1185, 1285, 1385, 1485, 1585, 1685, 1785, 1859, 1885, 1985, 2085, 2185, 2285, 2385, 2485, 2585, 2685, 2785, 2859, 2885, 2985, 3085, 3185, 3285, 3385, 3485, 3585
OFFSET
1,1
MATHEMATICA
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 *)
CROSSREFS
Sequence in context: A089060 A037979 A044417 * A260100 A072289 A211257
KEYWORD
nonn,base
STATUS
approved