This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A112814 #15 Jan 31 2021 02:38:24 %S A112814 105,106,107,108,109,2625,2626,2627,2628,2629,2630,2631,2632,2633, %T A112814 2634,2635,2636,2637,2638,2639,2640,2641,2642,2643,2644,2645,2646, %U A112814 2647,2648,2649,2650,2651,2652,2653,2654,2655,2656,2657,2658,2659,2660,2661,2662 %N A112814 Numbers k such that lcm(1,2,3,...,k)/5 equals the denominator of the k-th harmonic number H(k). %C A112814 When 5 occurs in A110566. %H A112814 Amiram Eldar, <a href="/A112814/b112814.txt">Table of n, a(n) for n = 1..10000</a> %t A112814 f[n_] := LCM @@ Range[n]/Denominator[ HarmonicNumber[n]]; Select[ Range[2662], f[ # ] == 5 &] %o A112814 (PARI) isok(n) = lcm(vector(n, i, i)) == 5*denominator(sum(i=1, n, 1/i)); \\ _Michel Marcus_, Mar 07 2018 %Y A112814 Cf. A002805, A003418, A110566. %Y A112814 Cf. A098464, A112813, A112815, A112816, A112817, A112818, A112819, A112820, A112821, A112822. %K A112814 nonn %O A112814 1,1 %A A112814 _Robert G. Wilson v_, Sep 17 2005