cp's OEIS Frontend

A014752 Primes of the form x^2 + 27y^2.

%I A014752 #71 Dec 19 2024 12:19:28
%S A014752 31,43,109,127,157,223,229,277,283,307,397,433,439,457,499,601,643,
%T A014752 691,727,733,739,811,919,997,1021,1051,1069,1093,1327,1399,1423,1459,
%U A014752 1471,1579,1597,1627,1657,1699,1723,1753,1777,1789,1801,1831,1933,1999,2017
%N A014752 Primes of the form x^2 + 27y^2.
%C A014752 Primes p == 1 (mod 3) such that 2 is a cubic residue mod p.
%C A014752 Primes p == 1 (mod 6) such that 2 and -2 are both cubes (one implies the other) mod p. - _Warren D. Smith_
%C A014752 Subsequence of A040028, complement of A045309 relative to A040028. For p in this sequence, x^3 == 2 (mod p) has three solutions in integers from 0 to p-1, whose sum is p (A059899) or 2*p (A059914). The solutions are given in A060122, A060123 and A060124. - _Klaus Brockhaus_, Mar 02 2001
%C A014752 Primes p = 3m+1 such that 2^m == 1 (mod p). Subsequence of A016108 which also includes composites satisfying this congruence. - _Alzhekeyev Ascar M_, Feb 22 2012
%D A014752 K. Ireland and M. Rosen, A Classical Introduction to Modern Number Theory, Springer, 1982, Prop. 9.6.2, p. 119.
%H A014752 N. J. A. Sloane and T. D. Noe, <a href="/A014752/b014752.txt">Table of n, a(n) for n = 1..17753</a> (The first 1000 terms were computed by T. D. Noe)
%H A014752 Steven R. Finch, <a href="http://arxiv.org/abs/math/0701251">Powers of Euler's q-Series</a>, arXiv:math/0701251 [math.NT], 2007.
%H A014752 Bishnu Paudel and Chris Pinner, <a href="https://arxiv.org/abs/2412.10638">The integer group determinants for the abelian groups of order 18</a>, arXiv:2412.10638 [math.NT], 2024. See p. 3.
%H A014752 Zak Seidov, <a href="/A014752/a014752.txt">Corresponding values of x and y</a>
%H A014752 Bram van Asch, <a href="http://www.ijpam.eu/contents/2004-16-2/15/15.pdf">On the structure of the ring Z[2^(1/3)]</a>, Internat. J. Pure Appl. Math., 16 (No. 2, 2004), 243-251. See Prop. 7.
%F A014752 a(n) ~ 6n log n by the Landau prime ideal theorem. - _Charles R Greathouse IV_, Apr 06 2022
%t A014752 With[{nn=50},Take[Select[Union[First[#]^2+27Last[#]^2&/@Tuples[Range[ nn], 2]],PrimeQ],nn]] (* _Harvey P. Dale_, Jul 28 2014 *)
%t A014752 nn = 1398781;re = Sort[Reap[Do[Do[If[PrimeQ[p = x^2 + 27*y^2], Sow[{p, x, y}]], {x, Sqrt[nn - 27*y^2]}], {y, Sqrt[nn/27]}]][[2, 1]]]; (* For all 17753 values of a(n), x(n) and y(n). - _Zak Seidov_, May 20 2016 *)
%o A014752 (PARI)
%o A014752 { fc(a,b,c,M) = my(p,t1,t2,n); t1 = listcreate();
%o A014752 for(n=1,M, p = prime(n);
%o A014752 t2 = qfbsolve(Qfb(a,b,c),p); if(t2 == 0,, listput(t1,p)));
%o A014752 print(t1);
%o A014752 }
%o A014752 fc(1,0,27,1000);
%o A014752 \\ _N. J. A. Sloane_, Jun 06 2014
%o A014752 (PARI) list(lim)=my(v=List()); forprimestep(p=31,lim,6, if(Mod(2,p)^(p\3)==1, listput(v,p))); Vec(v) \\ _Charles R Greathouse IV_, Apr 06 2022
%o A014752 (Magma) [p: p in PrimesUpTo(2500) | NormEquation(27, p) eq true]; // _Vincenzo Librandi_, Jul 24 2016
%Y A014752 Cf. A040028, A045309, A059899, A059914, A060122, A060123, A060124, A014753.
%K A014752 nonn
%O A014752 1,1
%A A014752 _Klaus Brockhaus_, Mar 02 2001
%E A014752 Definition provided by _T. D. Noe_, May 08 2005
%E A014752 Entry revised by _Michael Somos_ and _N. J. A. Sloane_, Jul 28 2006
%E A014752 Defective Mma program replaced with PARI program, b-file recomputed and extended by _N. J. A. Sloane_, Jun 06 2014