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

0, 1, 2, 9, 4, 5, 6, 7, 8, 3, 10, 11, 12, 19, 14, 15, 16, 17, 18, 13, 20, 21, 22, 29, 24, 25, 26, 27, 28, 23, 90, 91, 92, 99, 94, 95, 96, 97, 98, 93, 40, 41, 42, 49, 44, 45, 46, 47, 48, 43, 50, 51, 52, 59, 54, 55, 56, 57, 58, 53, 60, 61, 62, 69, 64, 65, 66, 67, 68, 63, 70, 71, 72, 79, 74, 75

Offset

0,3

Comments

The map which is applied to primes in A171052.

Links

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

Mathematica

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

Prog

(PARI) A222239(n, d=[0, 1, 2, 9, 4, 5, 6, 7, 8, 3])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct result 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: A070700 A371983 A248682 * A365936 A281384 A332091

Adjacent sequences: A222236 A222237 A222238 * A222240 A222241 A222242

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved