Search: id:A038883 Results 1-1 of 1 results found. %I A038883 %S A038883 3,13,17,23,29,43,53,61,79,101,103,107,113,127,131,139,157,173,179,181, %T A038883 191,199,211,233,251,257,263,269,277,283,311,313,337,347,367,373,389, %U A038883 419,433,439,443,467,491,503,521,523,547,563,569,571,599,601,607,641 %N A038883 Primes p such that 13 is a square mod p. %C A038883 Equivalently, by quadratic reciprocity (since 13 == 1 mod 4), primes p which are squares mod 13. %C A038883 The squares mod 13 are 0, 1, 4, 9, 3, 12 and 10. %C A038883 Also primes of the form x^2+3*x*y-y^2. Discriminant = 13. Class = 1. This was originally a separate entry, submitted by Laura Caballero Fernandez, Lourdes Calvo Moguer, Maria Josefa Cano Marquez, Oscar Jesus Falcon Ganfornina and Sergio Garrido Morales (oscfalgan(AT)yahoo.es), Jun 06 2008. R. J. Mathar proved that this coincides with the present sequence, Jul 22 2008 %D A038883 Borevich and Shafaewich, Number Theory. %D A038883 D. B. Zagier, Zetafunktionen und quadratische Koerper. %e A038883 13 == 1 mod 3 and 1 is a square, so 3 is on the list. %e A038883 101 is prime and congruent to 7^2 = 49 == 10 (mod 13), so 101 is on the list. %t A038883 For[a = 1, a < 1001, a++, p = Prime[a]; t = Mod[p, 13]; If[Or[t == 1, t == 3, t == 4, t == 9, t == 10, t == 12], Print[p]]] - N. Fernandez (primeness(AT)borve.org), Jun 22 2006 %t A038883 Select[ Prime@ Range@ 118, JacobiSymbol[ #, 13] > -1 &] (* Robert G. Wilson v, (rgwv(AT)rgwv.com), May 16 2008 *) %Y A038883 Cf. A038883 (Primes p such that 13 is a square mod p) A141111, A141112 (d=65). %Y A038883 Sequence in context: A119889 A038956 A040123 this_sequence A141188 A019347 A045433 %Y A038883 Adjacent sequences: A038880 A038881 A038882 this_sequence A038884 A038885 A038886 %K A038883 nonn %O A038883 1,1 %A A038883 N. J. A. Sloane (njas(AT)research.att.com). %E A038883 Edited by N. J. A. Sloane (njas(AT)research.att.com), Apr 27 2008, Jul 28 2008 Search completed in 0.002 seconds