A083376 Numbers k such that A053664(k) is prime.
2, 3, 4, 5, 6, 7, 9, 18, 23, 27, 63, 105, 164, 189, 214, 1467, 3666, 3838
Offset: 1
Crossrefs
Cf. A053664.
Programs
-
Mathematica
For[k = 0, k < 850, If[PrimeQ[ChineseRemainder[Range[k], Prime[Range[k]]]], Print[k]], k++ ]
Extensions
a(16) from Max Alekseyev, May 10 2009
a(17)-a(18) from Giorgos Kalogeropoulos, Jan 31 2024