A083447 a(n) = floor( n*R(n)/(n+R(n))), where R(n) is the digit reversal of n (A004086).

1, 1, 2, 2, 3, 3, 4, 4, 0, 5, 7, 9, 10, 11, 12, 13, 14, 15, 1, 7, 11, 13, 15, 16, 18, 19, 20, 22, 2, 9, 13, 16, 18, 21, 22, 24, 26, 27, 3, 10, 15, 18, 22, 24, 26, 28, 30, 32, 4, 11, 16, 21, 24, 27, 30, 32, 34, 36, 5, 12, 18, 22, 26, 30, 33, 35, 37, 40, 6, 13, 19, 24, 28, 32, 35, 38, 41

Offset

2,3

Links

Vincenzo Librandi, Table of n, a(n) for n = 2..1000

Example

a(17) = floor(17*71/(17+71)) = floor(1207/88) = 13.

Mathematica

drev[n_]:=Module[{dr=FromDigits[Reverse[IntegerDigits[n]]]}, Floor[ (dr*n)/ (dr+n)]]; Array[drev, 80, 2] (* Harvey P. Dale, Apr 26 2014 *)

Crossrefs

Cf. A004086.

Sequence in context: A084054 A106747 A335979 * A252489 A357839 A332250

Adjacent sequences: A083444 A083445 A083446 * A083448 A083449 A083450

Keyword

base,easy,nonn

Author

Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 01 2003

Extensions

More terms from Jason Earls, May 23 2004

Status

approved