This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A139668 Primes of the form x^2 + 1848*y^2. 6

%I

%S 1873,2017,2137,2377,2473,2689,3217,3529,3697,4057,4657,5569,6073,

%T 6337,7177,7393,7417,7561,7681,7753,8017,8089,8233,8353,8737,8761,

%U 9241,9601,9769,11113,11257,11617,12049,12433,12457,12721,13297,13633,13729,14281,15073,15313,16417,16633,16657,16921,16993,17257,17977,18313,18481,19009,19273,19441,20113

%N Primes of the form x^2 + 1848*y^2.

%C Discriminant = -7392.

%C The primes are congruent to {1, 25, 169, 289, 361, 529, 625, 697, 793, 841, 961, 1345, 1369, 1633, 1681} (mod 1848).

%C More than the usual number of terms are shown in order to display the difference from A244019. - _N. J. A. Sloane_, Jun 19 2014

%H Vincenzo Librandi and Ray Chandler, <a href="/A139668/b139668.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Vincenzo Librandi).

%H William C. Jagy and Irving Kaplansky, <a href="/A244019/a244019.pdf">Positive definite binary quadratic forms that represent the same primes</a> [Cached copy]

%H N. J. A. Sloane et al., <a href="https://oeis.org/wiki/Binary_Quadratic_Forms_and_OEIS">Binary Quadratic Forms and OEIS</a> (Index to related sequences, programs, references)

%p fd:=proc(a,b,c,M) local dd,xlim,ylim,x,y,t1,t2,t3,t4,i;

%p dd:=4*a*c-b^2;

%p if dd<=0 then error "Form should be positive definite."; break; fi;

%p t1:={};

%p xlim:=ceil( sqrt(M/a)*(1+abs(b)/sqrt(dd)));

%p ylim:=ceil( 2*sqrt(a*M/dd));

%p for x from 0 to xlim do

%p for y from -ylim to ylim do

%p t2 := a*x^2+b*x*y+c*y^2;

%p if t2 <= M then t1:={op(t1),t2}; fi; od: od:

%p t3:=sort(convert(t1,list));

%p t4:=[];

%p for i from 1 to nops(t3) do

%p if isprime(t3[i]) then t4:=[op(t4),t3[i]]; fi; od:

%p [[seq(t3[i],i=1..nops(t3))], [seq(t4[i],i=1..nops(t4))]];

%p end;

%p fd(1,0,1848,50000); # _N. J. A. Sloane_, Jun 19 2014

%t QuadPrimes2[1, 0, 1848, 10000] (* see A106856 *)

%o (MAGMA) [ p: p in PrimesUpTo(15000) | p mod 1848 in {1, 25, 169, 289, 361, 529, 625, 697, 793, 841, 961, 1345, 1369, 1633, 1681}]; // _Vincenzo Librandi_, Jul 29 2012

%o (MAGMA) k:=1848; [p: p in PrimesUpTo(21000) | NormEquation(k, p) eq true]; // _Bruno Berselli_, Jun 01 2016

%Y Cf. A244019 (a different sequence which agrees for the first 43 terms), A106856.

%K nonn,easy

%O 1,1

%A _T. D. Noe_, Apr 29 2008

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

Last modified August 20 22:45 EDT 2019. Contains 326155 sequences. (Running on oeis4.)