A035044 Exchange 2 and 3.

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

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• base
• easy

Comments

The map which is applied to primes in A171018. - M. F. Hasler, Feb 12 2013

Rearrangement of A001477 (the nonnegative integers). - Zak Seidov, Feb 15 2013

Links

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

Crossrefs

Cf. A001477, A171018, A222210-A222254; A171013-A171016, A175770.

Programs

Mathematica

FromDigits[IntegerDigits[#]/.{2->3,3->2}]&/@Range[0,68] (* Zak Seidov, Feb 15 2013 *)

PARI

A222227(n, d=[0, 1, 3, 2, 4, 5, 6, 7, 8, 9])=sum(i=1, #n=digits(n), d[n[i]+1]*10^(#n-i)) \\ gives correct value for n=0 iff d[1]=0, since digits(0)=[] in PARI (v.2.6), M. F. Hasler, Feb 12 2013