|
Search: id:A136369
|
|
| |
| |
|
|
OFFSET
|
1,1
|
|
|
MATHEMATICA
|
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} ]
|
|
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. A136365, A136366, A136367, A136370, A136371.
Adjacent sequences: A136366 A136367 A136368 this_sequence A136370 A136371 A136372
Sequence in context: A127143 A079256 A097685 this_sequence A007573 A143909 A139454
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Alexander Adamchuk (alex(AT)kolmogorov.com), Dec 27 2007
|
|
|
Search completed in 0.002 seconds
|
