login
A134413
a(n) = the denominator of (Sum_{k=1..n} 1/A134411(k)).
2
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
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
Sequence in context: A097466 A259311 A141624 * A134201 A184408 A184409
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Oct 24 2007
EXTENSIONS
More terms from Stefan Steinerberger, Oct 27 2007
STATUS
approved