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

37, 44, 101, 108, 165, 172, 229, 236, 293, 296, 352, 364, 421, 428, 485, 492, 549, 556, 613, 620, 677, 684, 741, 748, 805, 808, 864, 876, 933, 940, 997, 1004, 1061, 1068, 1125, 1132, 1189, 1196, 1253, 1260, 1317, 1320, 1376

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A007094.

Sequence in context: A367478 A322098 A039351 * A043954 A349057 A244356

Adjacent sequences: A043171 A043172 A043173 * A043175 A043176 A043177

Keyword

nonn,base

Author

Clark Kimberling

Status

approved