OFFSET
1,6
COMMENTS
a(17) > 7000, a(32) = 2015.
a(18) = a(25) = a(31) = 6, a(19) = a(22) = a(37) = 5, a(20) = a(27) = a(35) = a(36) = a(39) = a(48) = 1, a(23) = a(38) = a(49) = 2, a(24) = a(29) = a(42) = 3, a(26) = 12, a(28) = 75, a(30) = 8, a(33) = 7, a(41) = 121, a(44) = 1052, a(46) = 125, a(47) = 1527. - Chai Wah Wu, Nov 19 2018
LINKS
dxdy Blog, MSE Crusher Questioner - will anyone try? (in Russian).
Math StackExchange, Is there are similar conjecture like this??, Sep 2018.
MATHEMATICA
a[n_] := Do[s = HarmonicNumber[n, r]; If[PrimeQ[Numerator[s] + Denominator[s]], Return[r]], {r, 1, Infinity}]; Table[a[n], {n, 1, 16}] (* Vaclav Kotesovec, Nov 14 2018 *)
PROG
(PARI)
a(n)={for(i=1, +oo, s=sum(j=1, n, j^(-i)); p=numerator(s); q=denominator(s); if(ispseudoprime(p+q), return(i)))};
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Dmitry Ezhov, Oct 05 2018
STATUS
approved