login
Smallest m such that A097747(m) = n.
2

%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