A222229 In the number n, replace all (decimal) digits '2' with '5' and vice versa.

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

Offset

0,3

Comments

The map which is applied to primes in A171025.

Links

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

Mathematica

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

Prog

(PARI) A222229(n, d=[0, 1, 5, 3, 4, 2, 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: A090343 A135448 A243359 * A168360 A342116 A342117

Adjacent sequences: A222226 A222227 A222228 * A222230 A222231 A222232

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved