A222216 In the number n, replace all (decimal) digits 0 with 7 and vice versa.

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

Offset

0,1

Comments

The map which is applied to primes in A171034.

Links

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

Maple

A222216 := proc(n)
    if n = 0 then
        7;
    else
        dgs := convert(n, base, 10) ;
        dgs := [seq( subs({0=7, 7=0}, op(d, dgs)), d=1..nops(dgs))] ;
        add(op(d, dgs)*10^(d-1), d=1..nops(dgs)) ;
    end if;
end proc: # R. J. Mathar, Feb 15 2013

Mathematica

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

Prog

(PARI) A222216(n, d=[7, 1, 2, 3, 4, 5, 6, 0, 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: A216983 A021588 A224998 * A212498 A153103 A199782

Adjacent sequences: A222213 A222214 A222215 * A222217 A222218 A222219

Keyword

nonn,base,easy

Author

M. F. Hasler, Feb 12 2013

Status

approved