|
|
A112817
|
|
Numbers k such that lcm(1,2,3,...,k)/11 equals the denominator of the k-th harmonic number H(k).
|
|
12
|
|
|
33, 34, 35, 36, 37, 38, 39, 40, 41, 81, 82, 83, 84, 85, 86, 87, 363, 364, 365, 366, 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 406, 407, 408, 409, 410, 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 428, 429, 430
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
f[n_] := LCM @@ Range[n]/Denominator[ HarmonicNumber[n]]; Select[ Range[430], f[ # ] == 11 &]
Select[Range[450], 1/11*LCM@@Range[#]==Denominator[HarmonicNumber[#]]&] (* Harvey P. Dale, Jan 06 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|