A043886 Numbers k such that 0 and 1 occur juxtaposed in the base-5 representation of k but not of k+1.

5, 30, 51, 55, 76, 80, 101, 105, 155, 176, 180, 201, 205, 226, 230, 251, 259, 280, 301, 305, 326, 330, 351, 355, 376, 384, 405, 426, 430, 451, 455, 476, 480, 501, 509, 530, 551, 555, 576, 580, 601, 605, 780, 801, 805, 826, 830

Offset

1,1

Links

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

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 5], {0, 1}]>0 || SequenceCount[IntegerDigits[n, 5], {1, 0}]>0, 1, 0], {n, 900}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 14 2017 *)

Crossrefs

Cf. A007091.

Sequence in context: A097252 A169610 A206329 * A044463 A270811 A331507

Adjacent sequences: A043883 A043884 A043885 * A043887 A043888 A043889

Keyword

nonn,base

Author

Clark Kimberling

Status

approved