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

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

Offset

0,2

Comments

The map which is applied to primes in A171035.

Links

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

Mathematica

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

Prog

(PARI) A222224(n, d=[0, 7, 2, 3, 4, 5, 6, 1, 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: A291361 A198607 A021857 * A163333 A116369 A155751

Adjacent sequences: A222221 A222222 A222223 * A222225 A222226 A222227

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved