%I #5 Sep 20 2024 06:04:41
%S 54,594,5454,5994,6534,10890,20691,30492,40293,50094,54054,59994,
%T 65934,70686,109890,208791,307692,406593,505494,540054,545454,594594,
%U 599994,604395,659934,703296,802197,901098,1099890,2089791,3079692,4069593,5059494,5400054,5459454
%N Numbers k such that R(k)/k is of the form m/(m + 1), where R(k) is the digital reversal of k.
%e 6534 is a term since its digital reversal 4356 = 6534 * 2/3.
%t Select[Range[5500000], Numerator[r = FromDigits[Reverse[IntegerDigits[#] ]]/#] == Denominator[r] - 1 &]
%Y Cf. A004086, A376259 (digital reversal).
%K nonn,base
%O 1,1
%A _Stefano Spezia_, Sep 17 2024