|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
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
|
A173950(n)=if(prime(n)%6==1, -1, n>2)
A173950(n)=[-1, 0, 0, 0, 1][prime(n)%6]
A173950(n)=if(n>2, prime(n)%6-3)/2 \\ (End)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|