|
%I #2 Mar 31 2012 13:21:19
%S 0,1,2,3,5,6,9,12,20,21,23,30,41,42,56,72,90,110,132,156,182,210,240,
%T 272,306,342,380,420,462,506,552,600,650,702,756,812,870,930,992,1056,
%U 1122,1190,1260,1332,1406,1482,1560,1640,1722,1806,1892,1980,2070
%N a(n) = (A166049(n)-1)/4.
%C Indexing sequence for A166049.
%o (MIT Scheme with macro MATCHING-POS by AK):
%o (define A166048 (MATCHING-POS 1 0 (lambda (n) (let ((w (A016813 n)) (hp (A005843 n))) (let loop ((i 1) (s 1)) (cond ((< s 0) #f) ((>= i hp) #t) (else (loop (1+ i) (+ s (jacobi-symbol (1+ i) w))))))))))
%K nonn
%O 1,3
%A _Antti Karttunen_, Oct 08 2009
|
