login
A044011
Numbers k such that 1 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
1
18, 81, 118, 189, 218, 281, 318, 381, 418, 481, 518, 581, 618, 681, 718, 781, 819, 881, 918, 981, 1018, 1081, 1118, 1189, 1218, 1281, 1318, 1381, 1418, 1481, 1518, 1581, 1618, 1681, 1718, 1781, 1899, 1918, 1981, 2018, 2081
OFFSET
1,1
LINKS
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {1, 8}]>0 || SequenceCount[ IntegerDigits[n], {8, 1}]>0, 1, 0], {n, 2200}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 11 2017 *)
CROSSREFS
Sequence in context: A264850 A039408 A043231 * A338039 A085504 A214531
KEYWORD
nonn,base
STATUS
approved