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

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

Offset

0,3

Comments

The map which is applied to primes in A171027.

Links

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

Mathematica

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

Prog

(PARI) A222240(n, d=[0, 1, 2, 3, 5, 4, 6, 7, 8, 9])={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: A339263 A179475 A262564 * A309151 A138311 A131717

Adjacent sequences: A222237 A222238 A222239 * A222241 A222242 A222243

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved