A097748 Smallest m such that A097747(m) = n.

0, 1, 3, 7, 11, 18, 27, 29, 41, 61, 63, 71, 73, 97, 99, 141, 166, 209, 205, 236, 253, 303, 338, 375, 394, 415, 457, 417, 507, 595, 617, 698, 723, 721, 835, 833, 920, 841, 843, 991, 1180, 1123, 1054, 1217, 1473, 1261, 1559, 1629, 1641, 1836, 1805, 1834, 1981

Offset

1,3

Comments

A097747(a(n)) = n. - Corrected by Robert Israel, Oct 08 2024

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Maple

V:= Vector(100): A[0]:= 1: V[1]:= 0: count:= 1:
for n from 1 while count < 100 do A[n]:= A[n mod A[n-1]] + floor(n/A[n-1]);
  if A[n] <= 100 and V[A[n]] = 0 then V[A[n]]:= n; count:= count+1; fi;
od:
convert(V, list); # Robert Israel, Oct 08 2024

Crossrefs

Sequence in context: A178464 A071979 A335323 * A255000 A244570 A049645

Adjacent sequences: A097745 A097746 A097747 * A097749 A097750 A097751

Keyword

nonn

Author

Reinhard Zumkeller, Aug 23 2004

Status

approved