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 A157695 #11 Jan 20 2020 13:30:25 %S A157695 4,8,10,14,16,20,22,25,26,28,32,34,35,38,40,44,46,49,50,52,55,56,58, %T A157695 62,64,65,68,70,74,76,77,80,82,85,86,88,91,92,94,95,98,100,104,106, %U A157695 110,112,115,116,118,119,121,122,124,125,128,130,133,134,136,140,142,143,145 %N A157695 Composite numbers that are not multiples of 3. %C A157695 A002808 INTERSECTION A001651. %t A157695 Select[Range[200],CompositeQ[#]&&Mod[#,3]!=0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 20 2020 *) %o A157695 (PARI) isok(n) = (n != 1) && (n % 3) && (! isprime(n)) \\ _Michel Marcus_, Jul 28 2013 %o A157695 (PARI) lista(nn) = forcomposite(n=1, nn, if (n % 3, print1(n, ", "))); \\ _Michel Marcus_, Mar 18 2016 %K A157695 nonn %O A157695 1,1 %A A157695 _Lekraj Beedassy_, Mar 04 2009