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

0, 1, 2, 3, 8, 5, 6, 7, 4, 9, 10, 11, 12, 13, 18, 15, 16, 17, 14, 19, 20, 21, 22, 23, 28, 25, 26, 27, 24, 29, 30, 31, 32, 33, 38, 35, 36, 37, 34, 39, 80, 81, 82, 83, 88, 85, 86, 87, 84, 89, 50, 51, 52, 53, 58, 55, 56, 57, 54, 59, 60, 61, 62, 63, 68, 65, 66, 67, 64, 69, 70, 71, 72, 73, 78, 75

Offset

0,3

Comments

The map which is applied to primes in A171045.

Links

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

Mathematica

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

Prog

(PARI) A222243(n, d=[0, 1, 2, 3, 8, 5, 6, 7, 4, 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: A338841 A100208 A277972 * A264978 A268675 A268385

Adjacent sequences: A222240 A222241 A222242 * A222244 A222245 A222246

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved