1,1

A024529(n+1) = Numerator [ 1 + Sum[ (-1)^k*1/Prime[k], {k, 1, n} ] ] = {1,5,19,163,1583,22889,359083,7333087,158961311,...}.

f=1; Do[ p=Prime[n]; f=f + (-1)^n*1/p; g=Numerator[f] ; If[ PrimeQ[g], Print[ {n, g} ] ], {n, 1, 60} ]

Cf. A024529 = Numerator of 1 + Sum_{k=1..n-1} (-1)^k / prime(k). Cf. A024530, A136366. Cf. A136365, A136368, A136369, A136370, A136371.

Adjacent sequences: A136364 A136365 A136366 this_sequence A136368 A136369 A136370

Sequence in context: A123823 A064959 A032988 this_sequence A014545 A065636 A135323

more,nonn

Alexander Adamchuk (alex(AT)kolmogorov.com), Dec 27 2007