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,2

Comments

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

Links

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

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))

Prog

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

Crossrefs

Cf. A167389, A172515.

Sequence in context: A102737 A310724 A212447 * A327737 A081834 A078309

Adjacent sequences: A172510 A172511 A172512 * A172514 A172515 A172516

Keyword

nonn

Author

Stephen Crowley, Feb 05 2010

Extensions

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

Status

approved