

A191023


Primes p which have Kronecker symbol (p30) = 1.


16



11, 13, 17, 23, 29, 31, 37, 43, 47, 59, 67, 79, 101, 113, 131, 137, 149, 151, 157, 163, 167, 179, 199, 233, 241, 251, 257, 263, 269, 271, 277, 283, 307, 353, 373, 383, 389, 397, 409, 419, 439, 461, 491, 503, 509, 523, 547, 593, 601, 613, 617, 631, 643, 647
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Originally incorrectly named "primes which are squares (mod 30)", which is sequence A033212.  M. F. Hasler, Jan 15 2016


LINKS

Vincenzo Librandi, Table of n, a(n) for n = 1..1000


MATHEMATICA

Select[Prime[Range[200]], JacobiSymbol[#, 30]==1&]


PROG

(MAGMA) [p: p in PrimesUpTo(647)  KroneckerSymbol(p, 30) eq 1]; // Vincenzo Librandi, Sep 11 2012
(PARI) is(n)=isprime(n) && kronecker(n, 30)==1 \\ Charles R Greathouse IV, Jul 12 2016


CROSSREFS

Cf. A191017, A191018, A191020.
Sequence in context: A087681 A137669 A152470 * A078861 A106891 A191031
Adjacent sequences: A191020 A191021 A191022 * A191024 A191025 A191026


KEYWORD

nonn,easy


AUTHOR

T. D. Noe, May 24 2011


EXTENSIONS

Definition corrected (following an observation by David Broadhurst) by M. F. Hasler, Jan 15 2016


STATUS

approved



