|
%I #29 Feb 23 2023 07:36:16
%S 19,47,164,235,504,1109,1112,5134,9222
%N Numbers k such that A136677(k) is prime.
%C A136677(k) = Numerator of Sum_{j=1..k} (-1)^(j+1)/j^6.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/HarmonicNumber.html">Harmonic Number</a>.
%t Do[ f=Numerator[ Sum[ (-1)^(k+1)*1/k^6, {k,1,n} ] ]; If[ PrimeQ[f], Print[ {n,f} ] ], {n,1,130} ]
%Y Cf. A058313, A119682, A136675, A120296, A136676, A136677. Cf. A001008, A007406, A007408, A007410, A099828, A103345. Cf. A136681, A136682, A136683, A136684, A136685.
%K nonn,hard,more
%O 1,1
%A _Alexander Adamchuk_, Jan 16 2008
%E a(4)-a(5) from _Hiroaki Yamanouchi_, Sep 22 2014
%E a(6) from _Amiram Eldar_, Mar 14 2019
%E a(7)-a(9) from _Robert Price_, Apr 20 2019
|
