A165607 a(n) = (A165608(n)-3)/4.

2, 6, 8, 14, 15, 18, 20, 25, 32, 33, 42, 43, 60, 62, 69, 73, 74, 79, 85, 87, 90, 92, 93, 98, 103, 104, 123, 134, 140, 141, 143, 151, 158, 164, 168, 175, 177, 182, 183, 188, 195, 216, 218, 223, 224, 225, 231, 235, 242, 249, 265, 266, 272, 275, 281, 283, 284, 285

Offset

1,1

Links

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

Prog

(MIT Scheme with MATCHING-POS macro by AK): (define A165607 (MATCHING-POS 1 0 (lambda (n) (let ((w (A004767 n)) (hp (A005408 n))) (let loop ((i 1) (s 1) (zv 0)) (cond ((< s 0) #f) ((>= i hp) (not (zero? zv))) ((zero? s) (loop (1+ i) (+ s (jacobi-symbol (1+ i) w)) (1+ zv))) (else (loop (1+ i) (+ s (jacobi-symbol (1+ i) w)) zv))))))))

Crossrefs

Set-wise difference of A095274 and A165468.

Sequence in context: A107505 A074400 A264598 * A109440 A063242 A210984

Adjacent sequences: A165604 A165605 A165606 * A165608 A165609 A165610

Keyword

nonn

Author

Antti Karttunen, Oct 06 2009

Status

approved