A191066 Primes p that have Kronecker symbol (p|30) = -1.
7, 19, 41, 53, 61, 71, 73, 83, 89, 97, 103, 107, 109, 127, 139, 173, 181, 191, 193, 197, 211, 223, 227, 229, 239, 281, 293, 311, 313, 317, 331, 337, 347, 349, 359, 367, 379, 401, 421, 431, 433, 443, 449, 457, 463, 467, 479, 487, 499, 521, 541, 557, 563, 569
Offset: 1
References
- Hirschhorn, Michael D. "On the 2-and 4-dissections of the Rogers-Ramanujan functions." The Ramanujan Journal 40.2 (2016): 227-235.
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[p: p in PrimesUpTo(569) | KroneckerSymbol(p, 30) eq -1]; // Bruno Berselli, Sep 11 2012
-
Mathematica
Select[Prime[Range[200]], JacobiSymbol[#,30]==-1&]
Extensions
Definition corrected, following a suggestion from David Broadhurst, by M. F. Hasler, Jan 18 2016
Comments