

A044011


Numbers n such that 1 and 8 occur juxtaposed in the base 10 representation of n but not of n+1.


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Table of n, a(n) for n=1..41.


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 * A085504 A214531 A271502
Adjacent sequences: A044008 A044009 A044010 * A044012 A044013 A044014


KEYWORD

nonn,base


AUTHOR

Clark Kimberling


STATUS

approved



