login
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
OFFSET
1,1
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
Sequence in context: A260494 A039426 A043249 * A333814 A062902 A260106
KEYWORD
nonn,base
STATUS
approved