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 A217707 #14 Aug 11 2015 16:38:21 %S A217707 14,16,19,23,29,30,31,36,40,44,46,47,51,52,54,55,59,61,62,65,72,74,75, %T A217707 76,80,81,82,85,86,89,91,94,98,101,103,104,106,107,109,113,118,119, %U A217707 121,124,128,129,132,133,134,136,138,140,145,146,149,151,156,157,159 %N A217707 Numbers n such that both 4*n-1 and 4*n+1 are composite. %t A217707 Select[Range[200], ! PrimeQ[4 # - 1] && ! PrimeQ[4 # + 1] &] %t A217707 Select[Range[200],AllTrue[4#+{1,-1},CompositeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Aug 11 2015 *) %Y A217707 Cf. A060461, A045751. %K A217707 nonn,easy %O A217707 1,1 %A A217707 _Jayanta Basu_, Mar 20 2013