A043158 Numbers k such that 0 and 7 occur juxtaposed in the base-8 representation of k but not of k-1.

56, 71, 120, 135, 184, 199, 248, 263, 312, 327, 376, 391, 440, 448, 504, 519, 568, 583, 632, 647, 696, 711, 760, 775, 824, 839, 888, 903, 952, 960, 1016, 1031, 1080, 1095, 1144, 1159, 1208, 1223, 1272, 1287, 1336, 1351, 1400

Offset

1,1

Links

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

Mathematica

Transpose[SequencePosition[Table[If[MemberQ[Sort/@Partition[IntegerDigits[n, 8], 2, 1], {0, 7}], 1, 0], {n, 1500}], {0, 1}]][[2]] (* The program uses the SequencePosition function from Mathematica version 10.1 *) (* Harvey P. Dale, Apr 12 2015 *)

Crossrefs

Cf. A007094.

Sequence in context: A216855 A219800 A050440 * A039335 A043938 A328165

Adjacent sequences: A043155 A043156 A043157 * A043159 A043160 A043161

Keyword

nonn,base

Author

Clark Kimberling

Status

approved