OFFSET
1,1
COMMENTS
A058313(k) = Numerator of Sum_{j=1..k} (-1)^(j+1)/j.
LINKS
Eric Weisstein's World of Mathematics, Harmonic Number
MATHEMATICA
Do[ f=Numerator[ Sum[ (-1)^(k+1)*1/k, {k, 1, n} ] ]; If[ PrimeQ[f], Print[ {n, f} ] ], {n, 1, 317} ]
PROG
(PARI) isok(n) = isprime(numerator(sum(k=1, n, (-1)^(k+1)/k))); \\ Michel Marcus, Mar 14 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Jan 16 2008
EXTENSIONS
a(25)-a(30) from James R. Buddenhagen, Sep 22 2015
a(31)-a(51) from Amiram Eldar, Mar 14 2019
STATUS
approved