A117889 Period of sequence {Kronecker(-n,k), k = 1, 2, 3, ...}, or 0 if the sequence is not periodic.

0, 8, 3, 4, 0, 24, 7, 8, 0, 40, 11, 6, 0, 56, 15, 4, 0, 24, 19, 20, 0, 88, 23, 24, 0, 104, 3, 14, 0, 120, 31, 8, 0, 136, 35, 12, 0, 152, 39, 40, 0, 168, 43, 22, 0, 184, 47, 6, 0, 40, 51, 52, 0, 24, 55, 56, 0, 232, 59, 30, 0, 248, 21, 4, 0, 264, 67, 68, 0, 280, 71, 24, 0, 296, 15, 38

Offset

1,2

Comments

From Jianing Song, Nov 24 2018: (Start)

The sequence {Kronecker(-n,k)} forms a Dirichlet character modulo n if and only if n == 0, 3 (mod 4).

Let n = 2^t*s, s odd, then a(n) = A117888(n) if and only if t is odd, a(n) = A302138(n) if and only if t is odd or s == 3 (mod 4) (or both). (End)

Links

Table of n, a(n) for n=1..76.

Jean-Paul Allouche, Leo Goldmakher, Mock characters and the Kronecker symbol, arXiv:1608.03957 [math.NT], 2016.

Eric Weisstein's World of Mathematics, Kronecker Symbol

Formula

Let n = 2^t*s, s odd, then a(n) = 4*A007947(n) if t is odd; A007947(n) if t is even and s == 3 (mod 4); 2*A007947(n) if t is even and t > 0 and s == 1 (mod 4); 0 if t = 0 and s == 1 (mod 4). - Jianing Song, Nov 24 2018

Mathematica

per[lst_] := FindTransientRepeat[lst, 4] // Last // Length;
a[n_] := per[Table[KroneckerSymbol[-n, k], {k, 1, 1200}]];
Array[a, 76] (* Jean-François Alcover, Oct 08 2018 *)

Crossrefs

Cf. A007947.

Cf. A117888 (period of Kronecker(n,k)), A302138 (period of Kronecker(k,n)).

Sequence in context: A199863 A181180 A271521 * A021927 A145594 A194731

Adjacent sequences: A117886 A117887 A117888 * A117890 A117891 A117892

Keyword

nonn

Author

Eric W. Weisstein, Mar 30 2006

Extensions

Edited by N. J. A. Sloane, May 31 2009

Status

approved