A084805 Least positive integers, all distinct, that satisfy sum(n>0,1/a(n)^z)=0, where z=(1+I)/sqrt(2).

1, 11, 14, 17, 20, 24, 27, 31, 35, 39, 44, 48, 52, 57, 62, 67, 72, 77, 82, 87, 93, 98, 104, 109, 115, 121, 127, 133, 139, 145, 151, 158, 164, 170, 177, 184, 190, 197, 204, 211, 218, 225, 232, 239, 246, 254, 261, 268, 276, 283, 291, 299, 306, 314, 322, 330, 338

Offset

1,2

Comments

Sequence satisfies sum(n>0,1/a(n)^z)=0 by requiring that the modulus of the successive partial sums are monotonically decreasing in magnitude for the given z.

Links

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

Prog

(PARI) S=0; w=1; a=0; for(n=1, 100, b=a+1; while(abs(S+exp(-z*log(b)))>w, b++); S=S+exp(-z*log(b)); w=abs(S); a=b; print1(b, ", "))

Crossrefs

Cf. A084799-A084804, A084806-A084810.

Sequence in context: A025058 A025060 A093669 * A159020 A015830 A242098

Adjacent sequences: A084802 A084803 A084804 * A084806 A084807 A084808

Keyword

nonn

Author

Paul D. Hanna, Jun 04 2003

Status

approved