A084801 Least positive integers, all distinct, that satisfy sum(n>0,1/a(n)^z)=0, where z=(12+I*5)/13.

1, 62, 65, 69, 72, 76, 80, 83, 87, 90, 94, 98, 101, 105, 109, 113, 116, 120, 124, 128, 131, 135, 139, 143, 147, 150, 154, 158, 162, 166, 169, 173, 177, 181, 185, 189, 193, 197, 201, 204, 208, 212, 216, 220, 224, 228, 232, 236, 240, 244, 248, 252, 256, 260, 264

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..55.

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. A084589, A084799-A084800, A084802-A084810.

Sequence in context: A345496 A214251 A031058 * A095577 A095565 A095553

Adjacent sequences: A084798 A084799 A084800 * A084802 A084803 A084804

Keyword

nonn

Author

Paul D. Hanna, Jun 04 2003

Status

approved