login
A043886
Numbers k such that 0 and 1 occur juxtaposed in the base-5 representation of k but not of k+1.
0
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
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
KEYWORD
nonn,base
STATUS
approved