A222213 Replace all (decimal) digits '0' with '4' and vice versa.

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

Offset

0,1

Comments

The map which is applied to primes in A171019.

Links

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

Mathematica

Table[FromDigits[IntegerDigits[n]/.{0->z, 4->f}/.{z->4, f->0}], {n, 0, 80}] (* Harvey P. Dale, Feb 25 2013 *)

Prog

(PARI) A222213(n, d=[4, 1, 2, 3, 0, 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.

Crossrefs

Cf. A222210-A222254.

Sequence in context: A371853 A213884 A117021 * A010473 A176041 A131100

Adjacent sequences: A222210 A222211 A222212 * A222214 A222215 A222216

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved