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

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

Offset

0,1

Comments

The map which is applied to primes in A171028.

Links

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

Mathematica

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

Prog

(PARI) A222215(n, d=[6, 1, 2, 3, 4, 5, 0, 7, 8, 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: A246711 A164809 A089128 * A106687 A083463 A187110

Adjacent sequences: A222212 A222213 A222214 * A222216 A222217 A222218

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved