The OEIS is supported by the many generous donors to the OEIS Foundation. Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A226124 Denominators of signed reciprocal primes with sums converging to 1. 1
 2, 3, 5, 29, 863, 107251, 1519341947, 1028110904472525023, 18408375793288791212165960272609427, 12833942597163525070720542528785599268668682079686196789779156965969 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS The algorithm at A226049, with r = 1 and f(n) = 1/prime(n), gives the sum 1/2 + 1/3 + 1/5 - 1/29 + 1/863 - 1/107251 + 1/1519341947 - ... = 1, of which the denominators on the left side comprise this sequence. LINKS Amiram Eldar, Table of n, a(n) for n = 1..14 EXAMPLE 1/2 + 1/3 + 1/5 - 1/29 + 1/863 - 1/107251 + 1/1519341947 differs from 1 by less than 10^(-18). MATHEMATICA p[n_] := Prime[n]; q[x_] := PrimePi[x]; r = 1; u = 1/2 + 1/3 + 1/5; c = q[1/(u - r)]; c = q[1/(r - u + 1/p[c])]; c = q[1/(u - r - 1/p[c] + 1/p[c])]; c = q[1/(r - u + 1/p[c] - 1/p[c] + 1/p[c])]; Union[{2, 3, 5}, Table[p[c[i]], {i, 1, 4}]] seq={2, 3, 5}; sum=Total@(1/seq); While[Length[seq]<10, p=NextPrime[Abs[1/(sum-1)], -1]; sum+=Sign[1-sum]/p; AppendTo[seq, p]]; seq (* Amiram Eldar, Mar 13 2019 *) CROSSREFS Cf. A226049. Sequence in context: A107451 A093490 A073309 * A110389 A083388 A090475 Adjacent sequences: A226121 A226122 A226123 * A226125 A226126 A226127 KEYWORD nonn AUTHOR Clark Kimberling, May 27 2013 EXTENSIONS a(8)-a(10) from Amiram Eldar, Mar 13 2019 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified March 25 00:06 EDT 2023. Contains 361511 sequences. (Running on oeis4.)