OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..46
EXAMPLE
H(n) = [ 1/1, 3/2, 11/6, 25/12, 137/60, 49/20, 363/140, 761/280, 7129/2520,... ].
a(1) = 1 + 1 = 2,
a(2) = 3 + 2 = 5,
a(3) = 11 + 6 = 17,
a(4) = 25 + 12 = 37,
a(5) = 137 + 60 = 197,
a(6) = 363 + 140 = 503,
a(7) = 7129 + 2520 = 9649...
MAPLE
select(isprime, map(numer+denom, ListTools:-PartialSums([(1/n) $ n=1..10^3]))); # Robert Israel, May 30 2019
MATHEMATICA
Select[Numerator[#]+Denominator[#]&/@HarmonicNumber[Range[100]], PrimeQ] (* Harvey P. Dale, Jan 29 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 21 2006
STATUS
approved