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