%I #4 Mar 31 2012 14:40:08
%S 3,4,5,6,27
%N Numbers n such that A053664(n) and A073605(n) are primes.
%e a(4)=6 because A053664(6)=29243 and A073605(6)=787 are primes.
%t For[k = 0, k < 1415, If[PrimeQ[ChineseRemainder[Range[k], Prime[Range[k]]]] && PrimeQ[ChineseRemainder[ -Range[k], Prime[Range[k]]]], Print[k]], k++ ]
%Y Cf. A053664, A073605, A083376.
%K more,nonn
%O 1,1
%A _Farideh Firoozbakht_, Jun 07 2003
|