OFFSET
1,1
COMMENTS
A024529(n+1) = numerator of 1 + Sum_{j=1..n} (-1)^j/prime(j): 1, 5, 19, 163, 1583, 22889, 359083, 7333087, 158961311, 4832970889, 143352404329, ...
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} ]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Alexander Adamchuk, Dec 27 2007
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
STATUS
approved