A242654 1 followed by the union of the terms > 2 in A002387 (or A004080) and A115515.

1, 3, 4, 10, 11, 30, 31, 82, 83, 226, 227, 615, 616, 1673, 1674, 4549, 4550, 12366, 12367, 33616, 33617, 91379, 91380, 248396, 248397, 675213, 675214, 1835420, 1835421, 4989190, 4989191, 13562026, 13562027, 36865411, 36865412, 100210580, 100210581, 272400599, 272400600, 740461600, 740461601, 2012783314

Offset

1,2

Comments

Ray Chandler, May 29 2014, proposes this as the most likely continuation of A079353.

Links

Table of n, a(n) for n=1..42.

Mathematica

b[n_] := Ceiling[k /. FindRoot[HarmonicNumber[k] == n, {k, Exp[n]}, WorkingPrecision -> 100]] - 1;
bb = Array[b, 22];
A242654 = Union[bb, bb + 1] // Rest (* Jean-François Alcover, Apr 10 2019 *)

Crossrefs

Cf. A002387, A004080, A115515, A079353.

Sequence in context: A091910 A131179 A079353 * A370860 A243681 A242881

Adjacent sequences: A242651 A242652 A242653 * A242655 A242656 A242657

Keyword

nonn

Author

N. J. A. Sloane, May 29 2014

Status

approved