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 A124333 #11 Oct 11 2019 11:13:21 %S A124333 1,1,2,1,2,1,2,1,5,7,2,1,2,5,14,1,2,1,2,11,17,5,2,1,7,5,14,11,2,23,2, %T A124333 1,23,5,17,1,2,5,25,21,2,23,2,9,41,5,2,1,9,27,31,9,2,1,21,19,34,5,2, %U A124333 47,2,5,47,1,23,23,2,9,40,67,2,1,2,5,67,9,23,23,2,41,41,5,2,43,28,5,49,19,2 %N A124333 a(n) = ((n mod phi(n)) +1)th positive integer which is coprime to n, where phi(n) is number of positive integers which are <= n and are coprime to n. %H A124333 Vincenzo Librandi, <a href="/A124333/b124333.txt">Table of n, a(n) for n = 1..10000</a> %t A124333 f[n_] := Block[{k = 0, m = Mod[n, EulerPhi[n]] + 1},While[m > 0,k++;While[GCD[n, k] > 1, k++ ];m--;];k];Table[f[n], {n, 100}] (* _Ray Chandler_, Oct 26 2006 *) %Y A124333 Cf. A000010, A122383, A124332. %K A124333 nonn %O A124333 1,3 %A A124333 _Leroy Quet_ and _Ray Chandler_, Oct 26 2006