A043175 Numbers k such that 4 and 6 occur juxtaposed in the base-8 representation of k but not of k-1.

38, 52, 102, 116, 166, 180, 230, 244, 294, 304, 358, 372, 416, 436, 486, 500, 550, 564, 614, 628, 678, 692, 742, 756, 806, 816, 870, 884, 928, 948, 998, 1012, 1062, 1076, 1126, 1140, 1190, 1204, 1254, 1268, 1318, 1328, 1382

Offset

1,1

Links

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

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {4, 6}]>0 || SequenceCount[IntegerDigits[n, 8], {6, 4}]>0, 1, 0], {n, 1500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 19 2019 *)

Crossrefs

Cf. A007094.

Sequence in context: A125970 A026047 A039352 * A043955 A341172 A077801

Adjacent sequences: A043172 A043173 A043174 * A043176 A043177 A043178

Keyword

nonn,base

Author

Clark Kimberling

Status

approved