|
|
A125685
|
|
Primes in A125683(n) = numerator[ Sum[ (-1)^(k+1) * 1/(k(k+1)), {k,1,n} ].
|
|
3
|
|
|
5, 11, 2, 79, 331, 479, 5297, 70061, 69203, 8960447, 45083347, 1031626241, 15484789693, 15537907043, 64166447971, 3979714828967, 3988907823167, 27918983997629, 598858179567591121853, 31710728461561839214229
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Corresponding numbers n such that A125683(n) is prime are listed in A125684(n) = {3,4,5,6,7,8,10,13,14,18,21,22,26,27,28,32,33,35,51,54,58,67,76,89,100,...}.
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
A125683(n) begins {1,1,5,11,2,79,331,479,493,5297,2701,69071,70061,...}.
Thus a(1) = 5 because A125683(3) = 5 is prime but A125683(k) is not prime for k<3.
a(2)-a(6) = {11,2,79,331,479} because A125683(k) is prime for 3<k<9.
|
|
MATHEMATICA
|
Select[Table[Numerator[Sum[(-1)^(k+1)*1/(k(k+1)), {k, 1, n}]], {n, 1, 100}], PrimeQ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|