A038876 Primes p such that 6 is a square mod p.

2, 3, 5, 19, 23, 29, 43, 47, 53, 67, 71, 73, 97, 101, 139, 149, 163, 167, 173, 191, 193, 197, 211, 239, 241, 263, 269, 283, 293, 307, 311, 313, 317, 331, 337, 359, 379, 383, 389, 409, 431, 433, 457, 461, 479, 499, 503, 509, 523, 547, 557, 571, 577, 599, 601, 619, 643, 647

Offset

1,1

Comments

Also: for p>6, primes of the form 24*k +/-1 or +-5. - Zak Seidov Feb 01 2008.

Links

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

Maple

with(numtheory); t1:=[]; for n from 1 to 500 do p:=ithprime(n); if quadres(6, p) = 1 then t1:=[op(t1), p]; fi; od: t1;

Mathematica

Select[Prime[Range[3000]], JacobiSymbol[6, #]!=-1&] (* Vincenzo Librandi, Jul 13 2012 *)

Crossrefs

Sequence in context: A359940 A090116 A391371 * A038932 A019377 A215320

Adjacent sequences: A038873 A038874 A038875 * A038877 A038878 A038879

Keyword

nonn

Author

N. J. A. Sloane

Status

approved