A134413 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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