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

0, 1, 2, 3, 4, 5, 8, 7, 6, 9, 10, 11, 12, 13, 14, 15, 18, 17, 16, 19, 20, 21, 22, 23, 24, 25, 28, 27, 26, 29, 30, 31, 32, 33, 34, 35, 38, 37, 36, 39, 40, 41, 42, 43, 44, 45, 48, 47, 46, 49, 50, 51, 52, 53, 54, 55, 58, 57, 56, 59, 80, 81, 82, 83, 84, 85, 88, 87, 86, 89, 70, 71, 72, 73, 74, 75

Offset

0,3

Comments

The map which is applied to primes in A171047.

Links

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

Mathematica

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

Prog

(PARI) A222250(n, d=[0, 1, 2, 3, 4, 5, 8, 7, 6, 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: A275877 A245819 A207802 * A122317 A130992 A122318

Adjacent sequences: A222247 A222248 A222249 * A222251 A222252 A222253

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved