login
A165468
a(n) = (A165469(n)-3)/4.
5
0, 1, 3, 5, 7, 9, 11, 13, 17, 19, 21, 23, 27, 29, 35, 37, 39, 41, 45, 47, 49, 53, 57, 59, 63, 65, 67, 71, 75, 77, 81, 83, 89, 95, 97, 99, 101, 107, 109, 111, 113, 117, 119, 125, 127, 129, 131, 133, 137, 139, 147, 149, 153, 155, 161, 165, 167, 169, 173, 179, 185, 187
OFFSET
1,3
PROG
(MIT/GNU Scheme)
; with MATCHING-POS macro by AK
(define A165468 (MATCHING-POS 1 0 (lambda (n) (let ((w (A004767 n)) (hp (A005408 n))) (let loop ((i 1) (s 1)) (cond ((<= s 0) #f) ((>= i hp) #t) (else (loop (1+ i) (+ s (jacobi-symbol (1+ i) w))))))))))
CROSSREFS
Subset of A095274. Cf. A165607.
Sequence in context: A349174 A349177 A323550 * A353124 A354149 A371533
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 06 2009
STATUS
approved