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

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

Offset

0,3

Comments

The map which is applied to primes in A171040.

Links

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

Mathematica

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

Prog

(PARI) A222249(n, d=[0, 1, 2, 3, 4, 5, 7, 6, 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: A073907 A131424 A336285 * A230565 A072797 A131169

Adjacent sequences: A222246 A222247 A222248 * A222250 A222251 A222252

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 13 2013

Status

approved