%I #7 Oct 09 2024 21:26:21
%S 0,1,3,7,11,18,27,29,41,61,63,71,73,97,99,141,166,209,205,236,253,303,
%T 338,375,394,415,457,417,507,595,617,698,723,721,835,833,920,841,843,
%U 991,1180,1123,1054,1217,1473,1261,1559,1629,1641,1836,1805,1834,1981
%N Smallest m such that A097747(m) = n.
%C A097747(a(n)) = n. - Corrected by _Robert Israel_, Oct 08 2024
%H Robert Israel, <a href="/A097748/b097748.txt">Table of n, a(n) for n = 1..10000</a>
%p V:= Vector(100): A[0]:= 1: V[1]:= 0: count:= 1:
%p for n from 1 while count < 100 do A[n]:= A[n mod A[n-1]] + floor(n/A[n-1]);
%p if A[n] <= 100 and V[A[n]] = 0 then V[A[n]]:= n; count:= count+1; fi;
%p od:
%p convert(V,list); # _Robert Israel_, Oct 08 2024
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Aug 23 2004