A172513 Complement of A167389.

1, 4, 7, 11, 14, 17, 20, 24, 27, 30, 33, 37, 40, 43, 46, 50, 53, 56, 59, 63, 66, 69, 73, 76, 79, 82, 86, 89, 92, 95, 99, 102, 105, 108, 112, 115, 118, 121, 125, 128, 131, 134, 138, 141, 144, 147, 151, 154, 157, 161, 164, 167, 170, 174, 177, 180, 183, 187, 190, 193

Offset: 1

Author

Stephen Crowley, Feb 05 2010

Keywords

• nonn

Comments

It appears that the sequence of first differences (A172515) consists of only 3's and 4's. - M. F. Hasler, Apr 11 2019

Crossrefs

Cf. A167389, A172515.

Programs

Maple

sort(convert((convert([seq(n, n = 1 .. 1000)], set) minus convert([seq(round(evalf((argument(exp(-(ln(2)+LambertW(n, -(1/2)*ln(2)))/ln(2)))*ln(2)+Im(LambertW(n, -(1/2)*ln(2))))/(2*Pi*ln(2)))), n = 1 .. 1000)], set)), list))

PARI

A172513_upto(LIM=200)=setminus([1..LIM],A167389_upto(200)) \\ M. F. Hasler, Apr 11 2019

Extensions

Keyword "hard" removed by M. F. Hasler, Apr 11 2019