%I #6 Oct 09 2020 13:16:04
%S 853,1109,1621,1877,2389,3413,5717,6229,6997,7253,10069,10837,11093,
%T 12373,13397,16981,17749,18517,18773,19541,21589,22613,23893,24917,
%U 27733,29269,30293,31573,32341,37717,39509,40277,41813,43093,46933
%N Primes of the form 256 k + 85.
%t a = {}; Do[If[PrimeQ[85 + 256 n], AppendTo[a, 85 + 256 n]], {n, 0, 200}]; a
%t Select[256*Range[200]+85,PrimeQ] (* _Harvey P. Dale_, Oct 09 2020 *)
%Y Cf. A035050, A007522, A127575, A127576, A127577, A127578, A127580, A127581, A087522, A127586, A127587, A127589, A127590, A127591, A127592, A127594.
%K nonn
%O 1,1
%A _Artur Jasinski_, Jan 19 2007
|