

A191034


Primes p with Jacobi symbol (p51) = 1.


10



5, 11, 13, 19, 23, 29, 41, 43, 67, 71, 103, 107, 113, 127, 131, 151, 157, 167, 173, 197, 223, 227, 229, 233, 269, 271, 307, 311, 317, 331, 347, 349, 373, 401, 409, 419, 421, 431, 433, 449, 457, 463, 479, 503, 521, 523, 577, 613, 617, 631, 641, 653, 661, 677
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Originally incorrectly named "primes which are squares (mod 51)", which is subsequence A106904.  M. F. Hasler, Jan 15 2016


LINKS

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


MATHEMATICA

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


PROG

(MAGMA) [p: p in PrimesUpTo(677)  JacobiSymbol(p, 51) eq 1]; // Vincenzo Librandi, Sep 10 2012


CROSSREFS

Cf. A191017, A191018, A191020, A191023, A191025, A191026, A191028, A191029, A191032, A191036, A191037.
Sequence in context: A191072 A153418 A079019 * A222219 A023225 A206581
Adjacent sequences: A191031 A191032 A191033 * A191035 A191036 A191037


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



