A222210 In the number n, replace all (decimal) digits '0' with '1' and vice versa.

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

Offset

0,3

Comments

The map which is applied to primes in A171013 and A175791.

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..1000

Mathematica

a[n_] := IntegerDigits[n] /. {0 -> 1, 1 -> 0} // FromDigits; Table[a[n], {n, 0, 75}] (* Jean-François Alcover, Jun 11 2013 *)

Prog

(PARI) A222210(n, d=[1, 0, 2, 3, 4, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i), !n) \\ N.B.: PARI's digits() function returns [] for 0.

Crossrefs

Cf. A171013, A175791; A048380.

Sequence in context: A353906 A247149 A330350 * A346511 A177894 A287877

Adjacent sequences: A222207 A222208 A222209 * A222211 A222212 A222213

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved