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 A284089 #26 Jun 28 2019 04:26:06 %S A284089 1,2465,314821,15841,658801,41041,21584305,8830801,8911,11205601, %T A284089 3193414093,1729,9653421961,1193229577,1232469001,69331969,1419339691, %U A284089 46657,587034735001,9439201,64774081,67047668161,100929219805,7995169,1894344001,212027401,67371265,3057601 %N A284089 Smallest number k such that gcd(phi(k), k-1) = n * lambda(k). %C A284089 For n > 1, a(n) is a Carmichael number. %C A284089 a(19) <= 587034735001. - _Giovanni Resta_, Mar 24 2017 %H A284089 Amiram Eldar, <a href="/A284089/b284089.txt">Table of n, a(n) for n = 1..138</a> %t A284089 m=10; s=Table[0,{m}]; c=0; k=0; While[c<m, k++; If[IntegerQ[n = GCD[EulerPhi[k], k-1]/CarmichaelLambda[k]] && n<=m && s[[n]] == 0, c++; s[[n]]=k]]; s (* _Amiram Eldar_, Jun 26 2019 *) %Y A284089 Cf. A000010, A002322, A002997, A049559, A264024. %K A284089 nonn %O A284089 1,2 %A A284089 _Altug Alkan_ and _Thomas Ordowski_, Mar 24 2017 %E A284089 a(7)-a(18) from _Giovanni Resta_, Mar 24 2017 %E A284089 a(19)-a(28) from _Amiram Eldar_, Jun 26 2019