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

0, 1, 2, 8, 4, 5, 6, 7, 3, 9, 10, 11, 12, 18, 14, 15, 16, 17, 13, 19, 20, 21, 22, 28, 24, 25, 26, 27, 23, 29, 80, 81, 82, 88, 84, 85, 86, 87, 83, 89, 40, 41, 42, 48, 44, 45, 46, 47, 43, 49, 50, 51, 52, 58, 54, 55, 56, 57, 53, 59, 60, 61, 62, 68, 64, 65, 66, 67, 63, 69, 70, 71, 72, 78, 74, 75

Offset

0,3

Comments

The map which is applied to primes in A171044.

Links

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A348683 A301389 A329452 * A019611 A138287 A101314

Adjacent sequences: A222235 A222236 A222237 * A222239 A222240 A222241

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved