|
|
A351744
|
|
Increment all even digits of n.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
MATHEMATICA
|
Array[FromDigits@ Map[If[EvenQ[#], # + 1, #] &, IntegerDigits[#]] &, 78, 0] (* Michael De Vlieger, Feb 17 2022 *)
|
|
PROG
|
(Python 3)
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|