A134413 a(n) = the denominator of (Sum_{k=1..n} 1/A134411(k)).

1, 1, 1, 2, 6, 6, 6, 6, 6, 3, 6, 6, 6, 3, 12, 12, 12, 12, 12, 12, 12, 12, 4, 4, 4, 12, 12, 12, 3, 2, 2, 6, 6, 6, 3, 24, 8, 8, 24, 24, 24, 24, 24, 24, 24, 24, 8, 8, 40, 40, 120, 120, 120, 120, 120, 120, 120, 120, 40, 40, 40, 120, 120, 120, 120, 120, 120, 120, 120

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A134411, A134412.

Sequence in context: A097466 A259311 A141624 * A134201 A184408 A184409

Adjacent sequences: A134410 A134411 A134412 * A134414 A134415 A134416

Keyword

frac,nonn

Author

Leroy Quet, Oct 24 2007

Extensions

More terms from Stefan Steinerberger, Oct 27 2007

Status

approved