%I #4 Sep 24 2013 09:21:38
%S 1,2,3,4,5,7,14,15,17,23,32,36,42,309,1384,1588
%N Numbers n such that A024528(n) is prime.
%C A024528(n) is the numerator of 1 + Sum[ 1/Prime[k], {k,1,n} ], or n-th elementary symmetric function of {1, prime(1), prime(2), ..., prime(n-1)}.
%t f=1;Do[p=Prime[n];f=f+1/p;g=Numerator[f];If[PrimeQ[g],Print[{n,p,g}]],{n,1,50}]
%Y Cf. A024528, A109628.
%K hard,more,nonn
%O 1,2
%A _Alexander Adamchuk_, Feb 01 2007
%E 3 more terms from _Ryan Propper_, Feb 11 2008
|