|
|
A044029
|
|
Numbers k such that 4 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
|
|
0
|
|
|
48, 84, 148, 184, 248, 284, 348, 384, 448, 489, 548, 584, 648, 684, 748, 784, 849, 884, 948, 984, 1048, 1084, 1148, 1184, 1248, 1284, 1348, 1384, 1448, 1489, 1548, 1584, 1648, 1684, 1748, 1784, 1849, 1884, 1948, 1984, 2048
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {4, 8}]>0 || SequenceCount[ IntegerDigits[n], {8, 4}]>0, 1, 0], {n, 2200}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 21 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|