|
Search: id:A136371
|
|
| |
| |
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
f=1; Do[ p=Prime[n]; f=f + (-1)^(n+1)*1/p^2; g=Numerator[f] ; If[ PrimeQ[g], Print[ {n, g} ] ], {n, 1, 100} ]
|
|
CROSSREFS
|
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. A136370 = Numerator of 1 + Sum[ (-1)^(k+1)*1/Prime[k]^2, {k, 1, n} ] ]. Cf. A136365, A136366, A136367, A136369.
Sequence in context: A042469 A107990 A117460 this_sequence A060380 A062608 A041791
Adjacent sequences: A136368 A136369 A136370 this_sequence A136372 A136373 A136374
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Dec 27 2007
|
|
|
Search completed in 0.002 seconds
|
