login
A222210
In the number n, replace all (decimal) digits '0' with '1' and vice versa.
47
1, 0, 2, 3, 4, 5, 6, 7, 8, 9, 1, 0, 2, 3, 4, 5, 6, 7, 8, 9, 21, 20, 22, 23, 24, 25, 26, 27, 28, 29, 31, 30, 32, 33, 34, 35, 36, 37, 38, 39, 41, 40, 42, 43, 44, 45, 46, 47, 48, 49, 51, 50, 52, 53, 54, 55, 56, 57, 58, 59, 61, 60, 62, 63, 64, 65, 66, 67, 68, 69, 71, 70, 72, 73, 74, 75
OFFSET
0,3
COMMENTS
The map which is applied to primes in A171013 and A175791.
LINKS
MATHEMATICA
a[n_] := IntegerDigits[n] /. {0 -> 1, 1 -> 0} // FromDigits; Table[a[n], {n, 0, 75}] (* Jean-François Alcover, Jun 11 2013 *)
PROG
(PARI) A222210(n, d=[1, 0, 2, 3, 4, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i), !n) \\ N.B.: PARI's digits() function returns [] for 0.
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
M. F. Hasler, Feb 12 2013
STATUS
approved