A134412 a(n) = the numerator of (Sum_{k=1..n} 1/A134411(k)).

1, 2, 3, 7, 23, 29, 31, 37, 43, 23, 47, 53, 59, 31, 127, 139, 151, 163, 167, 179, 191, 197, 67, 71, 73, 223, 229, 241, 61, 41, 43, 131, 137, 139, 71, 571, 193, 197, 599, 607, 631, 643, 647, 659, 683, 691, 233, 241, 1213, 1223, 3709, 3769, 3889, 3929, 4049, 4079

Offset

1,2

Comments

With the exception of the initial 1, all terms of this sequence are primes.

Links

Table of n, a(n) for n=1..56.

Mathematica

a = {1}; s = 1; Do[i = 1; While[ ! PrimeQ[Numerator[s + 1/i]], i++ ]; s = s + 1/i; AppendTo[a, Numerator[s]], {80}]; a (* Stefan Steinerberger, Oct 27 2007 *)

Crossrefs

Cf. A134411, A134413.

Sequence in context: A158055 A156615 A158054 * A005115 A113872 A120302

Adjacent sequences: A134409 A134410 A134411 * A134413 A134414 A134415

Keyword

frac,nonn

Author

Leroy Quet, Oct 24 2007

Extensions

More terms from Stefan Steinerberger, Oct 27 2007

Status

approved