login
A043996
Numbers k such that 0 and 1 occur juxtaposed in the base-10 representation of k but not of k+1.
0
10, 110, 201, 210, 301, 310, 401, 410, 501, 510, 601, 610, 701, 710, 801, 810, 901, 910, 1110, 1201, 1210, 1301, 1310, 1401, 1410, 1501, 1510, 1601, 1610, 1701, 1710, 1801, 1810, 1901, 1910, 2001, 2019, 2110, 2201, 2210, 2301
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n], {0, 1}]>0||SequenceCount[IntegerDigits[n], {1, 0}]>0, 1, 0], {n, 2500}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Jan 10 2016 *)
CROSSREFS
Sequence in context: A108988 A097257 A333723 * A044723 A158492 A249845
KEYWORD
nonn,base
STATUS
approved