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,2

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

Links

Michael De Vlieger, Table of n, a(n) for n = 0..10000

E. Angelini, Strings resurrection, SeqFan mailing list, Sep 08 2012.

Example

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

Mathematica

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

Prog

(PARI)  A216556(n)={my(t=1); until(n<t*=10, (n+=t)\t%10||n+=(n-t)\(t*=10)*9*t); n}

Crossrefs

Cf. A216557, A216587, A216589.

Sequence in context: A068861 A341935 A256079 * A331975 A068860 A158699

Adjacent sequences: A216553 A216554 A216555 * A216557 A216558 A216559

Keyword

nonn,easy,base

Author

M. F. Hasler, Sep 08 2012

Status

approved