A222234 - OEIS

A222234

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

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

COMMENTS

The map which is applied to primes in A171022.

LINKS

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

MATHEMATICA

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

PROG

(PARI) A222234(n, d=[0, 1, 2, 4, 3, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6)

CROSSREFS

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

Sequence in context: A198342 A081725 A228083 * A374791 A374792 A362075

Adjacent sequences: A222231 A222232 A222233 * A222235 A222236 A222237

KEYWORD

nonn,base,easy

AUTHOR

M. F. Hasler, Feb 12 2013

STATUS

approved