A109602 Numbers n such that n!/(pi(n)!*2^n)+1 is prime.
1, 4, 5, 6, 7, 8, 9, 19, 20, 29, 31, 97, 113, 181, 286, 419, 485, 670, 1216
Offset: 1
Keywords
Crossrefs
Cf. A108894.
Programs
-
Mathematica
f[n_] := n!/Fold[Times, 1, Range[PrimePi[n]]]*2^n + 1; Do[ If[ PrimeQ[ f[n]], Print[n]], {n, 1000}]
Extensions
a(19)=1216 from Ray Chandler, Aug 04 2005
Comments