cp's OEIS Frontend

A065454 Let the k-th harmonic number be H(k) = Sum_{i=1..k} 1/i = P(k)/Q(k) = A001008(k)/A002805(k); sequence gives values of k such that Q(k) = Q(k+1).

%I A065454 #12 Jan 29 2021 16:11:38
%S A065454 9,11,13,14,21,25,27,29,33,34,35,37,38,39,44,45,47,49,50,51,54,55,56,
%T A065454 57,59,61,64,67,69,73,74,75,77,79,81,83,84,85,86,89,90,91,92,93,94,95,
%U A065454 97,98,101,103,105,107,110,111,113,114,115,116,117,118,121,122,123,125
%N A065454 Let the k-th harmonic number be H(k) = Sum_{i=1..k} 1/i = P(k)/Q(k) = A001008(k)/A002805(k); sequence gives values of k such that Q(k) = Q(k+1).
%C A065454 Shiu (2016) proved that this sequence is infinite. Wu and Chen (2019) proved that the asymptotic density of this sequence is 1. - _Amiram Eldar_, Jan 29 2021
%H A065454 Amiram Eldar, <a href="/A065454/b065454.txt">Table of n, a(n) for n = 1..10000</a>
%H A065454 Peter Shiu, <a href="https://arxiv.org/abs/1607.02863">The denominators of harmonic numbers</a>, arXiv:1607.02863 [math.NT], 2016.
%H A065454 Bing-Ling Wu and Yong-Gao Chen, <a href="https://doi.org/10.1016/j.jnt.2018.11.026">On the denominators of harmonic numbers, II</a>, Journal of Number Theory, Vol. 200 (2019), pp. 397-406.
%e A065454 For example: H(11) = 83711/27720, H(12) = 86021/27720 and so a(2) = 11.
%t A065454 Position[Partition[Denominator @ HarmonicNumber[Range[126]], 2, 1], {x_, x_}] // Flatten (* _Amiram Eldar_, Jan 29 2021 *)
%Y A065454 Cf. A001008, A002805.
%K A065454 nonn
%O A065454 1,1
%A A065454 _Benoit Cloitre_, Nov 24 2001