A165479 a(n) = least i in range [A165478(n),A165478(n+1)] for which abs(A165477(i)) gets the maximum value in that range.

43690, 131070, 174761, 262141, 305832, 393212, 436903, 524283, 567974, 655354, 699045, 786425, 830116, 917496, 961187, 1048567, 1092258, 1179638, 1223329, 1310709, 1354400, 1441780, 1485471, 1572851, 1616542, 1703922, 1747613, 1834993, 1878684, 1966064, 2009755

Offset

0,1

Comments

The corresponding maximum values are 570,0,570,0,570,0,570,0,570,0,570,0,570,0,570,0,570,0,... (period 2 sequence). Note that also A165477(87380) = 570 (as 131071 is 4k+3 prime), and A165477(65535) = 285 = 570/2.

Links

Paolo Xausa, Table of n, a(n) for n = 0..10000

Formula

a(n) = floor(n/2)*131071 + (1+2*(n modulo 2))*43690.

Mathematica

A165479[n_] := 43690*(2*n + 1) - 43689*Quotient[n, 2];
Array[A165479, 35, 0] (* Paolo Xausa, May 27 2026 *)

Prog

(Scheme) (define (A165479 n) (+ (* (floor->exact (/ n 2)) 131071) (* (+ 1 (* 2 (modulo n 2))) 43690)))

Crossrefs

Sequence in context: A251995 A094493 A342580 * A140931 A295440 A045157

Adjacent sequences: A165476 A165477 A165478 * A165480 A165481 A165482

Keyword

nonn,easy

Author

Antti Karttunen, Sep 21 2009

Extensions

More terms from Paolo Xausa, May 27 2026

Status

approved