login
A165607
a(n) = (A165608(n)-3)/4.
3
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
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 06 2009
STATUS
approved