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

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

Offset

0,2

Comments

The map which is applied to primes in A171020.

Links

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

Mathematica

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

Prog

(PARI) A222221(n, d=[0, 4, 2, 3, 1, 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: A297847 A145326 A178915 * A254043 A016513 A063447

Adjacent sequences: A222218 A222219 A222220 * A222222 A222223 A222224

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved