|
%I #21 Nov 01 2022 12:17:29
%S 7681,10753,11777,17921,23041,26113,32257,36353,45569,51713,67073,
%T 76289,81409,84481,87553,96769,102913,112129,113153,115201,118273,
%U 119297,125441,133633,143873,153089,155137,158209,159233,161281,168449,170497,176641
%N Primes of the form 1024n + 513.
%H Vincenzo Librandi, <a href="/A105132/b105132.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) ~ 512n log n. - _Charles R Greathouse IV_, Nov 01 2022
%t lst={};Do[p=1024*n+513;If[PrimeQ[p],AppendTo[lst,p]],{n,0,3*5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 27 2009 *)
%t Select[1024*Range[500]+513,PrimeQ] (* _Harvey P. Dale_, Jul 18 2011 *)
%o (Magma) [ a: n in [1..300] | IsPrime(a) where a is 1024*n+513 ]; // _Vincenzo Librandi_, Dec 07 2011
%o (PARI) forprimestep(p=7681,176641,1024, print1(p", ")) \\ _Charles R Greathouse IV_, Nov 01 2022
%Y Cf. A002145, A007521, A105126-A105131.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_, based on correspondence from _Marco Matosic_, Apr 11 2005
|
