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

0, 1, 2, 3, 9, 5, 6, 7, 8, 4, 10, 11, 12, 13, 19, 15, 16, 17, 18, 14, 20, 21, 22, 23, 29, 25, 26, 27, 28, 24, 30, 31, 32, 33, 39, 35, 36, 37, 38, 34, 90, 91, 92, 93, 99, 95, 96, 97, 98, 94, 50, 51, 52, 53, 59, 55, 56, 57, 58, 54, 60, 61, 62, 63, 69, 65, 66, 67, 68, 64, 70, 71, 72, 73, 79, 75

Offset

0,3

Comments

The map which is applied to primes in A171053.

Links

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

Mathematica

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

Prog

(PARI) A222244(n, d=[0, 1, 2, 3, 9, 5, 6, 7, 8, 4])={sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i), !n*d[1])} \\ N.B.: digits(0)=[] in PARI (v.2.6)

Crossrefs

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

Sequence in context: A202017 A127198 A065631 * A325645 A176570 A269559

Adjacent sequences: A222241 A222242 A222243 * A222245 A222246 A222247

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved