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

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

Offset

0,1

Comments

The map which is applied to primes in A171016.

Links

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

Mathematica

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

Prog

(PARI) A222212(n, d=[3, 1, 2, 0, 4, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i))+!n*d[1] \\ N.B.: PARI's digits() function returns [] for 0.
(PARI) a(n)=if(n, fromdigits(apply(d->if(d>3, d, [3, 1, 2, 0][d+1]), digits(n))), 3) \\ Charles R Greathouse IV, Sep 27 2015

Crossrefs

Cf. A222210-A222254, A171013-A171016, A175770, A171018-A171057.

Sequence in context: A074090 A054025 A265910 * A318526 A054869 A201671

Adjacent sequences: A222209 A222210 A222211 * A222213 A222214 A222215

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved