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

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

Offset

0,3

Comments

The map which is applied to primes in A171039.

Links

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

Mathematica

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

Prog

(PARI) A222246(n, d=[0, 1, 2, 3, 4, 7, 6, 5, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i), !n*d[1]) \\ N.B.: digits(0)=[] in PARI (v.2.6)

Crossrefs

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

Sequence in context: A359446 A072275 A122989 * A353828 A321726 A353829

Adjacent sequences: A222243 A222244 A222245 * A222247 A222248 A222249

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved