%I #18 Feb 05 2024 12:11:44
%S 2,3,4,5,6,7,9,18,23,27,63,105,164,189,214,1467,3666,3838
%N Numbers k such that A053664(k) is prime.
%t For[k = 0, k < 850, If[PrimeQ[ChineseRemainder[Range[k], Prime[Range[k]]]], Print[k]], k++ ]
%Y Cf. A053664.
%K more,nonn
%O 1,1
%A _Farideh Firoozbakht_, Jun 05 2003
%E a(16) from _Max Alekseyev_, May 10 2009
%E a(17)-a(18) from _Giorgos Kalogeropoulos_, Jan 31 2024