A222238 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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