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 A126601 #14 Sep 06 2019 04:09:29 %S A126601 4,15,10,25,12,77,15,39,26,69,20,121,22,81,56,69,27,161,30,121,65,105, %T A126601 35,205,49,119,68,141,44,391,46,123,92,141,81,287,54,153,106,213,58, %U A126601 425,62,185,146,177,66,343,82,259,128,209,75,385,114,253,142,215,82,671,85 %N A126601 a(n) = n-th composite from among those composites which are coprime to n. %H A126601 Michel Marcus, <a href="/A126601/b126601.txt">Table of n, a(n) for n = 1..1000</a> %e A126601 The composites which are coprime to 6 are: 25,35,49,55,65,77,85,...So a(6) is the 6th of these, which is 77. %t A126601 f[n_] := Block[{k = 1, c = n},While[c > 0,k++;While[PrimeQ[k] || GCD[k, n] > 1, k++ ];c--;];k];Table[f[n], {n, 61}] (* _Ray Chandler_, Jan 08 2007 *) %o A126601 (PARI) a(n) = {my(c=2, nb=0); while(nb != n, c++; if (!isprime(c) && (gcd(c,n)==1), nb++)); c;} \\ _Michel Marcus_, Sep 06 2019 %Y A126601 Cf. A089090 (the 1st such composite). %K A126601 nonn %O A126601 1,1 %A A126601 _Leroy Quet_, Jan 06 2007 %E A126601 Extended by _Ray Chandler_, Jan 08 2007