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 A175076 #6 Feb 09 2015 16:01:34 %S A175076 9,15,21,25,28,33,36,39,45,49,52,55,58,63,66,69,75,78,81,85,88,91,94, %T A175076 96,99,105,111,115,118,120,122,126,129,133,136,141,144,146,148,153, %U A175076 156,159,162,165,169,172,175,178,183,186,188,190,195,201,204,206,208,213,216 %N A175076 Composites c which end at 2 under iterations of {r mod (max prime p < r)} starting at r = c. %C A175076 Subsequence of A175072. Union of a(n) and A175075 is A175072. %e A175076 Iteration procedure for a(2) = 15: 15 mod 13 = 2. Iteration procedure for a(5) = 28: 28 mod 23 = 5, 5 mod 3 = 2. %t A175076 ce2Q[n_]:=NestWhileList[Mod[#,NextPrime[#,-1]]&,n,#>0&][[-2]]==2; Select[ Range[ 300],CompositeQ[#]&&ce2Q[#]&] (* _Harvey P. Dale_, Feb 09 2015 *) %K A175076 nonn %O A175076 1,1 %A A175076 _Jaroslav Krizek_, Jan 23 2010 %E A175076 More terms from _R. J. Mathar_, Sep 25 2010