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

Links

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

Mathematica

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

Crossrefs

Sequence in context: A046604 A377085 A175379 * A152481 A157276 A010486

Adjacent sequences: A106743 A106744 A106745 * A106747 A106748 A106749

Keyword

nonn,base

Author

Zak Seidov, May 12 2005

Status

approved