OFFSET
0,3
MATHEMATICA
a[n_]:=FromDigits[Map[If[Mod[ #, 2]==0, 1+#/2, # ]&, IntegerDigits[n]]]; Table[a[n], {n, 0, 100}]
Table[FromDigits[If[EvenQ[#], #/2+1, #]&/@IntegerDigits[n]], {n, 0, 80}] (* Harvey P. Dale, Feb 09 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, May 12 2005
STATUS
approved