A136367 Numbers k such that A024529(k+1) is prime.
2, 3, 4, 5, 11, 59, 397, 613, 906, 1560, 2162, 2915, 5211
Offset: 1
Crossrefs
Programs
-
Mathematica
f=1; Do[ p=Prime[n]; f=f + (-1)^n*1/p; g=Numerator[f] ;If[ PrimeQ[g], Print[ {n, g} ] ], {n, 1, 60} ]
Extensions
a(7)-a(9) from Alexander Adamchuk, Sep 15 2010
a(10) from Vincenzo Librandi, Aug 26 2019
a(11)-a(13) from Robert Price, Aug 29 2019
Comments