This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A191037 Primes p that have Jacobi symbol (p|58) = 1. 9
 3, 7, 11, 19, 23, 37, 43, 61, 71, 101, 103, 131, 151, 157, 163, 167, 199, 211, 223, 229, 233, 239, 241, 251, 257, 269, 281, 293, 307, 313, 317, 331, 353, 379, 383, 389, 401, 421, 431, 439, 443, 457, 461, 463, 467, 487, 491, 521, 541, 563, 593, 619, 631, 647 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Originally incorrectly named "Primes which are squares mod 58", which is sequence A038901. - M. F. Hasler, Jan 15 2016 LINKS Vincenzo Librandi, Table of n, a(n) for n = 1..1000 MAPLE select(t -> isprime(t) and numtheory:-jacobi(t, 58)=1, [seq(i, i=3..1000, 2)]); # Robert Israel, Jan 15 2016 MATHEMATICA Select[Prime[Range[200]], JacobiSymbol[#, 58]==1&] PROG (MAGMA) [p: p in PrimesUpTo(647) | KroneckerSymbol(p, 58) eq 1]; // Vincenzo Librandi, Sep 11 2012 (PARI) select(p->kronecker(p, 58)==1&&isprime(p), [1..1000]) \\ This is to provide a generic characteristic function ("is_A191037") as 1st arg of select(), there are other ways to produce the sequence more efficiently. - M. F. Hasler, Jan 15 2016 CROSSREFS Cf. A191017, A191018, A191020, A191023, A191025, A191026, A191028, A191029, A191032, A191034, A191036. Sequence in context: A117991 A118260 A018805 * A292083 A135932 A231847 Adjacent sequences:  A191034 A191035 A191036 * A191038 A191039 A191040 KEYWORD nonn,easy AUTHOR T. D. Noe, May 25 2011 EXTENSIONS Definition corrected (following an observation by David Broadhurst) by M. F. Hasler, Jan 15 2016 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified November 17 12:09 EST 2018. Contains 317276 sequences. (Running on oeis4.)