%I A136369
%S A136369 2,5,6,8,18,20,98
%N A136369 Numbers n such that A136368(n) is prime.
%t A136369 f=0; Do[ p=Prime[n]; f=f + (-1)^(n+1)*1/p^2; g=Numerator[f] ;If[ PrimeQ[g], 
               Print[ {n, g} ] ], {n, 1, 100} ]
%Y A136369 Cf. A024530 = Numerator of Sum_{k=1..n} (-1)^k / prime(k). Cf. A136368 
               = Numerator of Sum[ (-1)^(k+1)*1/Prime[k]^2, {k, 1, n} ] ]. Cf. A136365, 
               A136366, A136367, A136370, A136371.
%Y A136369 Sequence in context: A127143 A079256 A097685 this_sequence A007573 A143909 
               A139454
%Y A136369 Adjacent sequences: A136366 A136367 A136368 this_sequence A136370 A136371 
               A136372
%K A136369 more,nonn
%O A136369 1,1
%A A136369 Alexander Adamchuk (alex(AT)kolmogorov.com), Dec 27 2007