|
| |
|
|
A134413
|
|
a(n) = the denominator of (sum{k=1 to 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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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 (stefan.steinerberger(AT)gmail.com), Oct 27 2007
|
|
|
CROSSREFS
| Cf. A134411, A134412.
Sequence in context: A198102 A097466 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 (stefan.steinerberger(AT)gmail.com), Oct 27 2007
|
| |
|
|
