OFFSET
1,2
COMMENTS
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)}.
MATHEMATICA
f=1; Do[p=Prime[n]; f=f+1/p; g=Numerator[f]; If[PrimeQ[g], Print[{n, p, g}]], {n, 1, 50}]
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Feb 01 2007
EXTENSIONS
3 more terms from Ryan Propper, Feb 11 2008
STATUS
approved