login
A173950
a(n) = 1 if 6 divides (prime(n) + 1), a(n) = -1 if 6 divides (prime(n) - 1), a(n) = 0 otherwise.
3
0, 0, 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, 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, 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, -1, -1, 1, 1, -1, 1, -1, 1, 1, -1, 1, -1, 1, 1, 1, -1, -1
OFFSET
1
COMMENTS
Equals -A134323 except for the first term. - M. F. Hasler, Oct 09 2011
FORMULA
a(n) = -A134323(n) for n > 1. - M. F. Hasler, Oct 09 2011
a(n) = -Kronecker(-12, prime(n)) = -Kronecker(prime(n), 12) = -A134667(prime(n)). - Jianing Song, Mar 17 2019
MATHEMATICA
Table[Which[Divisible[Prime[n]+1, 6], 1, Divisible[Prime[n]-1, 6], -1, True, 0], {n, 150}] (* Harvey P. Dale, Apr 24 2019 *)
PROG
(PARI) A173950(n)=if(prime(n)%6==1, -1, n>2) \\ M. F. Hasler, Oct 09 2011
(PARI) A173950(n)=(-1)^(prime(n)%3)*(n>2) \\ M. F. Hasler, Oct 09 2011
(PARI) A173950(n)=[-1, 0, 0, 0, 1][prime(n)%6] \\ M. F. Hasler, Oct 09 2011
(PARI) A173950(n)=if(n>2, prime(n)%6-3)/2 \\ M. F. Hasler, Oct 09 2011
CROSSREFS
KEYWORD
sign
AUTHOR
Giovanni Teofilatto, Nov 26 2010
STATUS
approved