login
A125707
Numbers n such that A024528(n) is prime.
2
1, 2, 3, 4, 5, 7, 14, 15, 17, 23, 32, 36, 42, 309, 1384, 1588
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
Sequence in context: A268199 A178767 A337188 * A039060 A278442 A092065
KEYWORD
hard,more,nonn
AUTHOR
Alexander Adamchuk, Feb 01 2007
EXTENSIONS
3 more terms from Ryan Propper, Feb 11 2008
STATUS
approved