This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A124332 #11 Oct 11 2019 11:14:03 %S A124332 1,1,3,2,5,3,7,1,1,5,11,1,13,7,15,2,17,1,19,4,3,11,23,1,5,13,27,14,29, %T A124332 15,31,4,3,17,35,1,37,19,39,1,41,3,43,4,9,23,47,24,7,5,51,26,53,27,55, %U A124332 1,3,29,59,1,61,31,9,2,5,3,67,4,3,35,71,1,73,37,15,38,7,39,79,1,3,41,83,1 %N A124332 a(n) = ((n mod d(n)) +1)th divisor of n, where d(n) is number of positive divisors of n. %H A124332 Vincenzo Librandi, <a href="/A124332/b124332.txt">Table of n, a(n) for n = 1..10000</a> %t A124332 f[n_] := Block[{d = Divisors[n]}, d[[Mod[n, Length[d]] + 1]]];Table[f[n], {n, 90}] (* _Ray Chandler_, Oct 26 2006 *) %Y A124332 Cf. A000005, A122377, A124333. %K A124332 nonn %O A124332 1,3 %A A124332 _Leroy Quet_ and _Ray Chandler_, Oct 26 2006