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 A274172 #26 May 30 2021 12:55:13 %S A274172 77,91,119,133,143,161,187,203,209,217,221,247,253,259,287,299,301, %T A274172 319,323,329,341,343,371,377,391,403,407,413,427,437,451,469,473,481, %U A274172 493,497,511,517,527,533,539,551,553,559,581,583,589 %N A274172 Nonsquare composites with all prime factors larger than 5. %C A274172 Nonsquare composites not divisible by 2,3,5. %H A274172 Robert Israel, <a href="/A274172/b274172.txt">Table of n, a(n) for n = 1..10000</a> %e A274172 377 = 13*29 is a term. %p A274172 filter:= n -> igcd(n,30)=1 and not issqr(n) and not isprime(n): %p A274172 select(filter, [seq(i,i=3..1000,2)]); # _Robert Israel_, May 30 2021 %o A274172 (PARI) { for(n=1,600, if(!(isprime(n) || n%2==0 || n%3==0 || n%5==0 || issquare(n)), print1(n", ")))} %o A274172 (PARI) is(n) = my(f=factor(n)); if(!issquare(n),f[1,1]>5 && matsize(f)[1]>1,0) \\ _David A. Corneth_, Jun 12 2016 %Y A274172 Intersection of A007775 and A089229. - _Felix Fröhlich_, Jun 12 2016 %K A274172 nonn %O A274172 1,1 %A A274172 _Dimitris Valianatos_, Jun 12 2016