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,3

Links

Table of n, a(n) for n=0..67.

Mathematica

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

Prog

(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
(PARI) a(n) = if (n, fromdigits(apply(x->if(!(x%2), x+1, x), digits(n))), 1); \\ Michel Marcus, Feb 18 2022

Crossrefs

Cf. A001613, A306436, A106747.

Sequence in context: A267458 A109613 A063196 * A339110 A245150 A339109

Adjacent sequences: A351741 A351742 A351743 * A351745 A351746 A351747

Keyword

nonn,base

Author

Alex Ratushnyak, Feb 17 2022

Status

approved