A118727 Primes that are the sum of the numerator and denominator of a harmonic number.
2, 5, 17, 37, 197, 503, 9649, 9901, 111431, 1532093, 1556117, 71354639, 392849685203, 67564865715709, 67929521152309, 2551756396706233, 345246028268898566519, 73744425850091533377950933665103, 4418089000986947559043789457061782529431
Offset: 1
Keywords
Examples
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...
Links
- Robert Israel, Table of n, a(n) for n = 1..46
Programs
-
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 *)
Comments