A083401 Numbers k such that A073605(k) is prime.
3, 4, 5, 6, 15, 21, 25, 27, 28, 52, 70, 205, 245, 308, 339, 357, 415, 524, 537, 1455, 1500
Offset: 1
Examples
a(1)=3 because A073605(3)=7 is prime and A073605(1) and A073605(2) aren't primes.
Programs
-
Mathematica
For[k = 0, k < 875, If[PrimeQ[ChineseRemainder[ -Range[k], Prime[Range[k]]]], Print[k]], k++ ]
Extensions
a(20)-a(21) from Max Alekseyev, May 11 2009
Comments