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

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

Offset

0,3

Comments

The map which is applied to primes in A171031.

Links

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

Mathematica

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

Prog

(PARI) A222235(n, d=[0, 1, 2, 6, 4, 5, 3, 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: A115508 A348669 A195730 * A351001 A334171 A175386

Adjacent sequences: A222233 A222234 A222235 * A222237 A222238 A222239

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved