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

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

Offset

0,2

Comments

The map which is applied to primes in A175770.

Links

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

Mathematica

a[n_]:= IntegerDigits[n]/.{1->3, 3->1} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 29 2013 *)

Prog

(PARI) A222220(n, d=[0, 3, 2, 1, 4, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

Crossrefs

Cf. A222210-A222254; A171013-A171016, A175770, A171018-A171057.

Sequence in context: A261876 A272336 A210797 * A271830 A193815 A104509

Adjacent sequences: A222217 A222218 A222219 * A222221 A222222 A222223

Keyword

nonn,easy,base

Author

M. F. Hasler, Feb 12 2013

Status

approved