0,3

Differs from A065423 starting with a(11)=10: A065423(11)=10.

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

a[n_]:=FromDigits[Map[If[Mod[ #, 2]==1, (#-1)/2, # ]&, IntegerDigits[n]]]; Table[a[n], {n, 0, 100}]

Cf. A065423.

Sequence in context: A099311 A130742 A130107 * A194747 A065423 A239242

Adjacent sequences: A107127 A107128 A107129 * A107131 A107132 A107133

nonn,base

Zak Seidov, May 12 2005

Edited by Charles R Greathouse IV, Aug 03 2010

approved