login
A044732
Numbers n such that string 1,9 occurs in the base 10 representation of n but not of n+1.
0
19, 119, 199, 219, 319, 419, 519, 619, 719, 819, 919, 1019, 1119, 1199, 1219, 1319, 1419, 1519, 1619, 1719, 1819, 1999, 2019, 2119, 2199, 2219, 2319, 2419, 2519, 2619, 2719, 2819, 2919, 3019, 3119, 3199, 3219, 3319, 3419
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {1, 9}]>0, 1, 0], {n, 3500}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 23 2018 *)
CROSSREFS
Sequence in context: A213556 A293879 A044351 * A159851 A221372 A252924
KEYWORD
nonn,base
STATUS
approved