A244513 - OEIS

%I #15 Mar 07 2020 12:26:24

%S -1,-1,-1,-1,-1,1,1,-1,1,-1,-1,1,1,-1,1,1,-1,-1,-1,1,1,-1,-1,1,1,-1,

%T -1,-1,1,1,-1,-1,1,-1,-1,-1,-1,-1,1,1,-1,-1,1,1,-1,1,1,-1,-1,1,-1,1,1,

%U -1,-1,1,-1,-1,1,1,1,1,-1,1,1,-1,1,-1,-1,1,-1,-1,-1,-1,-1,1,-1,1,1

%N Legendre symbol (prime(n), prime(n+1)).

%H Hamdi Murat Yildirim, <a href="/A244513/b244513.txt">Table of n, a(n) for n = 1..1000</a>

%o (Sage)

%o for i in range(1,10000):

%o     print(legendre_symbol(nth_prime(i),nth_prime(i+1)),",")

%o (PARI) a(n) = kronecker(prime(n), prime(n+1)); \\ _Michel Marcus_, Jun 29 2014

%K sign

%O 1

%A _Hamdi Murat Yildirim_, Jun 29 2014