%I #20 Oct 12 2012 11:58:09
%S 1201,1621,3301,4561,5821,6661,8761,9181,9601,10861,11701,12541,13381,
%T 14221,15061,15901,16741,17581,19681,20101,20521,22621,23041,25561,
%U 25981,26821,27241,28081,28921,29761,30181,33961,34381,35221,36061,36901,37321
%N Primes p such that p = 361 + 420*k for some k.
%C This is one prime congruence class of a wheel factorization of mod 420. The wheel has 96 spokes.
%t Select[Prime[Range[50000]], Mod[#, 420]== 361 &]
%K nonn
%O 1,1
%A _Joshua S.M. Weiner_, Oct 09 2012
|