A071159 Integers whose decimal expansion start with 1, do not contain zeros and each successive digit to the right is at most one greater than the previous digit.

1, 11, 12, 111, 112, 121, 122, 123, 1111, 1112, 1121, 1122, 1123, 1211, 1212, 1221, 1222, 1223, 1231, 1232, 1233, 1234, 11111, 11112, 11121, 11122, 11123, 11211, 11212, 11221, 11222, 11223, 11231, 11232, 11233, 11234, 12111, 12112, 12121

Offset: 1

Author

Antti Karttunen, May 14 2002

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• S. Giraudo, Combinatorial operads from monoids, arXiv preprint arXiv:1306.6938 [math.CO], 2013-2015. See Sect. 3.1.3.

Crossrefs

Essentially the same as A071157 but with digits reversed.

Corresponding Łukasiewicz words: A071153.

Programs

Maple

R[1]:= [1]:
for d from 2 to 6 do
R[d]:= map(t -> seq(10*t+j,j=1..min((t mod 10)+1,9)), R[d-1])
od:
A:= map(op, [seq(R[d],d=1..6)]); # Robert Israel, Jan 31 2017

Mathematica

desQ[n_]:=Module[{idn=IntegerDigits[n]},idn[[1]]==1&&FreeQ[idn,0]&&Max[ Differences[ idn]]<2]; Select[Range[13000],desQ] (* Harvey P. Dale, Feb 19 2017 *)