A112820 Numbers k such that lcm(1,2,3,...,k)/17 equals the denominator of the k-th harmonic number H(k).
272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 79507, 79508, 79509, 79510, 79511, 79512, 79513, 79514, 79515, 79516, 79517, 79518, 79519, 79520, 79521, 79522, 79523, 79524, 79525, 79526, 79527, 79528
Offset: 1
Keywords
Links
- Chai Wah Wu, Table of n, a(n) for n = 1..10000 (n = 1..3106 from Jinyuan Wang)
Crossrefs
Programs
-
Mathematica
a = h = 1; t = {}; Do[a = LCM[a, n]; h = h + 1/n; If[a/Denominator[h] == 17, AppendTo[t, n]], {n, 79528}]; t
Extensions
Definition corrected by Jinyuan Wang, May 03 2020
Comments