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

8, 1, 2, 3, 4, 5, 6, 7, 0, 9, 18, 11, 12, 13, 14, 15, 16, 17, 10, 19, 28, 21, 22, 23, 24, 25, 26, 27, 20, 29, 38, 31, 32, 33, 34, 35, 36, 37, 30, 39, 48, 41, 42, 43, 44, 45, 46, 47, 40, 49, 58, 51, 52, 53, 54, 55, 56, 57, 50, 59, 68, 61, 62, 63, 64, 65, 66, 67, 60, 69, 78, 71, 72, 73, 74, 75

Offset

0,1

Comments

The map which is applied to primes in A171041.

Links

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

Mathematica

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

Prog

(PARI) A222217(n, d=[8, 1, 2, 3, 4, 5, 6, 7, 0, 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: A179050 A176458 A355708 * A105473 A010518 A303321

Adjacent sequences: A222214 A222215 A222216 * A222218 A222219 A222220

Keyword

nonn,easy,base

Author

M. F. Hasler, Feb 12 2013

Status

approved