A165478 Positions of zeros in A165477.

0, 131070, 131071, 262141, 262142, 393212, 393213, 524283, 524284, 655354, 655355, 786425, 786426, 917496, 917497, 1048567, 1048568, 1179638, 1179639, 1310709, 1310710, 1441780, 1441781, 1572851, 1572852, 1703922, 1703923, 1834993, 1834994, 1966064, 1966065, 2097135

Offset

0,2

Links

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

Formula

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

Mathematica

A165478[n_] := 131070*n - 131069*Quotient[n, 2];
Array[A165478, 35, 0] (* Paolo Xausa, May 27 2026 *)

Prog

(Scheme) (define (A165478 n) (+ (* (floor->exact (/ n 2)) 131071) (* (modulo n 2) 131070)))

Crossrefs

See also A165479. Compare also to A165473, A165483.

Sequence in context: A103534 A239610 A384160 * A051331 A075972 A011567

Adjacent sequences: A165475 A165476 A165477 * A165479 A165480 A165481

Keyword

nonn,easy

Author

Antti Karttunen, Sep 21 2009

Extensions

More terms from Paolo Xausa, May 27 2026

Status

approved