%I A091399
%S A091399 1,2,2,2,0,4,1,2,2,0,0,4,0,2,0,2,0,4,2,0,2,0,0,4,0,0,2,2,2,0,2,2,0,0,0,
%T A091399 4,2,4,0,0,0,4,0,0,0,0,2,4,1,0,0,0,2,4,0,2,4,4,2,0,0,4,2,2,0,0,0,0,0,0,
%U A091399 0,4,0,4,0,4,0,0,0,0,2,0,2,4,0,0,4,0,0,0,0,0,4,4,0,4,0,2,0,0,0,0,2,0,0
%N A091399 Product_{ p | N } (1 + Legendre(7,p) ).
%p A091399 with(numtheory); L := proc(n,N) local i,t1,t2; t1 := ifactors(n)[2]; 
               t2 := mul((1+legendre(N,t1[i][1])),i=1..nops(t1)); end; [seq(L(n,
               7),n=1..120)];
%Y A091399 Cf. A091379.
%Y A091399 Sequence in context: A124759 A071295 A103223 this_sequence A000091 A155123 
               A125938
%Y A091399 Adjacent sequences: A091396 A091397 A091398 this_sequence A091400 A091401 
               A091402
%K A091399 nonn
%O A091399 1,2
%A A091399 N. J. A. Sloane (njas(AT)research.att.com), Mar 02 2004