A216556 Concatenate decimal digits of n, each increased by 1.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 21, 22, 23, 24, 25, 26, 27, 28, 29, 210, 31, 32, 33, 34, 35, 36, 37, 38, 39, 310, 41, 42, 43, 44, 45, 46, 47, 48, 49, 410, 51, 52, 53, 54, 55, 56, 57, 58, 59, 510, 61, 62, 63, 64, 65, 66, 67, 68, 69, 610, 71, 72, 73, 74, 75, 76, 77

Offset: 0

Author

M. F. Hasler, Sep 08 2012

Keywords

• nonn
• easy
• base

Comments

In all of the terms, a digit '0' can only occur preceded by a digit '1', and an initial digit '1' can only appear followed by a '0'.

Sequence A216589 lists the complement of the range of this map.

This is an injective map, A216587 is its left inverse. - M. F. Hasler, Sep 09 2012

Examples

			a(19) = concat(1+1,9+1) = 210.
		

Links

• Michael De Vlieger, Table of n, a(n) for n = 0..10000
• E. Angelini, Strings resurrection, SeqFan mailing list, Sep 08 2012.

Crossrefs

Cf. A216557, A216587, A216589.

Programs

Mathematica

Array[FromDigits@ Flatten[IntegerDigits[#] + 1 /. 10 -> {1, 0}] &, 91, 0] (* Michael De Vlieger, Jan 04 2020 *)

PARI

A216556(n)={my(t=1);until(n