A125708 Numbers k such that A115963(k) is prime.
3, 5, 9, 43, 150, 300, 516, 1254
Offset: 1
Programs
-
Mathematica
f=0;Do[p=Prime[n];f=f+1/p^3;g=Numerator[f];If[PrimeQ[g],Print[{n,p,g}]],{n,1,50}]
Extensions
a(6) from Alexander Adamchuk, Sep 16 2010
a(7)-a(8) from Amiram Eldar, Feb 18 2019
Comments