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 A242654 #8 Apr 10 2019 10:35:10 %S A242654 1,3,4,10,11,30,31,82,83,226,227,615,616,1673,1674,4549,4550,12366, %T A242654 12367,33616,33617,91379,91380,248396,248397,675213,675214,1835420, %U A242654 1835421,4989190,4989191,13562026,13562027,36865411,36865412,100210580,100210581,272400599,272400600,740461600,740461601,2012783314 %N A242654 1 followed by the union of the terms > 2 in A002387 (or A004080) and A115515. %C A242654 _Ray Chandler_, May 29 2014, proposes this as the most likely continuation of A079353. %t A242654 b[n_] := Ceiling[k /. FindRoot[HarmonicNumber[k] == n, {k, Exp[n]}, WorkingPrecision -> 100]] - 1; %t A242654 bb = Array[b, 22]; %t A242654 A242654 = Union[bb, bb + 1] // Rest (* _Jean-François Alcover_, Apr 10 2019 *) %Y A242654 Cf. A002387, A004080, A115515, A079353. %K A242654 nonn %O A242654 1,2 %A A242654 _N. J. A. Sloane_, May 29 2014