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

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

Offset

0,3

Comments

The map which is applied to primes in A171032.

Links

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

Mathematica

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

Prog

(PARI) A222241(n, d=[0, 1, 2, 3, 6, 5, 4, 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: A072298 A130686 A213927 * A056023 A133259 A120067

Adjacent sequences: A222238 A222239 A222240 * A222242 A222243 A222244

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved