A351744 Increment all even digits of n.

1, 1, 3, 3, 5, 5, 7, 7, 9, 9, 11, 11, 13, 13, 15, 15, 17, 17, 19, 19, 31, 31, 33, 33, 35, 35, 37, 37, 39, 39, 31, 31, 33, 33, 35, 35, 37, 37, 39, 39, 51, 51, 53, 53, 55, 55, 57, 57, 59, 59, 51, 51, 53, 53, 55, 55, 57, 57, 59, 59, 71, 71, 73, 73, 75, 75, 77, 77

Offset: 0

Author

Alex Ratushnyak, Feb 17 2022

Keywords

• nonn
• base

Crossrefs

Cf. A001613, A306436, A106747.

Programs

Mathematica

Array[FromDigits@ Map[If[EvenQ[#], # + 1, #] &, IntegerDigits[#]] &, 78, 0] (* Michael De Vlieger, Feb 17 2022 *)

PARI

a(n) = if (n, fromdigits(apply(x->if(!(x%2),x+1,x), digits(n))), 1); \\ Michel Marcus, Feb 18 2022

Python

for n in range(1000):
  s = str(n)
  res = ''
  for d in s:
    if (int(d) & 1)==0:  d = str(int(d)+1)
    res += d
  print(int(res), end=',')

Python

def A351744(n): return int(str(n).translate({48:49,50:51,52:53,54:55,56:57})) # Chai Wah Wu, Apr 07 2022