|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|