A106746 Replace each digit d of n with floor(d/2) + 5.

5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 55, 55, 56, 56, 57, 57, 58, 58, 59, 59, 65, 65, 66, 66, 67, 67, 68, 68, 69, 69, 65, 65, 66, 66, 67, 67, 68, 68, 69, 69, 75, 75, 76, 76, 77, 77, 78, 78, 79, 79, 75, 75, 76, 76, 77, 77, 78, 78, 79, 79, 85, 85, 86, 86, 87, 87, 88, 88, 89, 89, 85, 85, 86

Offset: 0

Author

Zak Seidov, May 12 2005

Keywords

• nonn
• base

Links

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

Programs

Mathematica

a[n_]:=FromDigits[Map[Floor[ #/2]+5&, IntegerDigits[n]]];Table[a[n], {n, 0, 100}]