A044011 Numbers k such that 1 and 8 occur juxtaposed in the base-10 representation of k but not of k+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

Michael De Vlieger, Table of n, a(n) for n = 1..10000

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

Adjacent sequences: A044008 A044009 A044010 * A044012 A044013 A044014

Keyword

nonn,base

Author

Clark Kimberling

Status

approved