A136368 Numerator of Sum_{k=1..n} (-1)^(k+1)/prime(k)^2.
1, 5, 161, 6989, 889769, 145034861, 42816875729, 15196271678069, 8132911703794601, 6790008314246422541, 6567054920481119894801, 8950073675937467308565669, 15100141203716305943432625689
Offset: 1
Programs
-
Magma
[Numerator(&+[(-1)^(k+1)/NthPrime(k)^2:k in [1..n]]): n in [1..13]]; // Marius A. Burtea, Aug 26 2019
-
Mathematica
Table[Numerator[Sum[(-1)^(k+1)/Prime[k]^2, {k, 1, n}]], {n, 1, 20}]