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

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

Offset

0,3

Comments

The map which is applied to primes in A171056.

Links

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

Mathematica

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

Prog

(PARI) A222253(n, d=[0, 1, 2, 3, 4, 5, 6, 9, 8, 7])=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: A270194 A055170 A068384 * A353591 A269838 A371985

Adjacent sequences: A222250 A222251 A222252 * A222254 A222255 A222256

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved