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

0, 1, 2, 3, 4, 8, 6, 7, 5, 9, 10, 11, 12, 13, 14, 18, 16, 17, 15, 19, 20, 21, 22, 23, 24, 28, 26, 27, 25, 29, 30, 31, 32, 33, 34, 38, 36, 37, 35, 39, 40, 41, 42, 43, 44, 48, 46, 47, 45, 49, 80, 81, 82, 83, 84, 88, 86, 87, 85, 89, 60, 61, 62, 63, 64, 68, 66, 67, 65, 69, 70, 71, 72, 73, 74, 78

Offset

0,3

Comments

The map which is applied to primes in A171046.

Links

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

Mathematica

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

Prog

(PARI) A222247(n, d=[0, 1, 2, 3, 4, 8, 6, 7, 5, 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: A326487 A253562 A355858 * A338242 A353827 A353826

Adjacent sequences: A222244 A222245 A222246 * A222248 A222249 A222250

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved