|
| |
|
|
A091379
|
|
Product_{ p | N } (1 + Legendre(-1,p) ).
|
|
10
| |
|
|
1, 2, 0, 2, 2, 0, 0, 2, 0, 4, 0, 0, 2, 0, 0, 2, 2, 0, 0, 4, 0, 0, 0, 0, 2, 4, 0, 0, 2, 0, 0, 2, 0, 4, 0, 0, 2, 0, 0, 4, 2, 0, 0, 0, 0, 0, 0, 0, 0, 4, 0, 4, 2, 0, 0, 0, 0, 4, 0, 0, 2, 0, 0, 2, 4, 0, 0, 4, 0, 0, 0, 0, 2, 4, 0, 0, 0, 0, 0, 4, 0, 4, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 4, 2, 0, 0, 4, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
REFERENCES
| G. Shimura, Introduction to the Arithmetic Theory of Automorphic Functions, Princeton, 1971, see p. 25, Eq. (2) (but without the restriction that a(4k) = 0 and with a different definition of Legendre(-1,2)).
|
|
|
FORMULA
| Here we use the definition that Legendre(-1, 2) = 1, Legendre(-1, p) = 1 if p == 1 mod 4, = -1 if p == 3 mod 4.
|
|
|
MAPLE
| with(numtheory); A091379 := proc(n) local i, t1, t2; t1 := ifactors(n)[2]; t2 := mul((1+legendre(-1, t1[i][1])), i=1..nops(t1)); end;
|
|
|
CROSSREFS
| Cf. A091400, A000091, A000086, A091392, A091393, A091394, A091395-A091399, A034444.
Sequence in context: A160210 A174610 A028928 * A151758 A164272 A164273
Adjacent sequences: A091376 A091377 A091378 * A091380 A091381 A091382
|
|
|
KEYWORD
| nonn,mult
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Mar 02 2004
|
| |
|
|
