A043934 Numbers k such that 0 and 3 occur juxtaposed in the base-8 representation of k but not of k+1.

24, 67, 88, 131, 152, 199, 216, 259, 280, 323, 344, 387, 408, 451, 472, 515, 543, 579, 600, 643, 664, 711, 728, 771, 792, 835, 856, 899, 920, 963, 984, 1027, 1055, 1091, 1112, 1155, 1176, 1223, 1240, 1283, 1304, 1347, 1368

Offset

1,1

Links

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

Mathematica

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {0, 3}]>0 || SequenceCount[IntegerDigits[n, 8], {3, 0}]>0, 1, 0], {n, 1400}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Jul 23 2016 *)

Crossrefs

Cf. A007094.

Sequence in context: A250791 A043154 A039331 * A087406 A319972 A304157

Adjacent sequences: A043931 A043932 A043933 * A043935 A043936 A043937

Keyword

nonn,base

Author

Clark Kimberling

Status

approved