editing
approved
editing
approved
In the number n, replace all (decimal) digits '3' by with '5' and vice versa.
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
Vincenzo Librandi, <a href="/A222235/b222235.txt">Table of n, a(n) for n = 0..1000</a>
a[n_]:= IntegerDigits[n]/.{3->5, 5->3} // FromDigits; Table[a[n], {n, 0, 80}] (* Vincenzo Librandi, Jul 30 2013 *)
approved
editing
editing
approved
nonn,base,easy
approved
editing
editing
approved
allocated for M. F. Hasler
In the number n, replace all (decimal) digits '3' by '5' and vice versa.
0, 1, 2, 5, 4, 3, 6, 7, 8, 9, 10, 11, 12, 15, 14, 13, 16, 17, 18, 19, 20, 21, 22, 25, 24, 23, 26, 27, 28, 29, 50, 51, 52, 55, 54, 53, 56, 57, 58, 59, 40, 41, 42, 45, 44, 43, 46, 47, 48, 49, 30, 31, 32, 35, 34, 33, 36, 37, 38, 39, 60, 61, 62, 65, 64, 63, 66, 67, 68, 69, 70, 71, 72, 75, 74, 73
0,3
The map which is applied to primes in A171026.
(PARI) A222235(n, d=[0, 1, 2, 5, 4, 3, 6, 7, 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)
allocated
nonn,base,changed
M. F. Hasler, Feb 12 2013
approved
editing