%I #37 Dec 16 2021 22:16:19
%S 3,13,23,43,53,73,83,103,113,163,173,193,223,233,263,283,293,313,353,
%T 373,383,433,443,463,503,523,563,593,613,643,653,673,683,733,743,773,
%U 823,853,863,883,953,983,1013,1033,1063,1093,1103,1123,1153,1163,1193
%N Primes of form 10n+3.
%C Also primes of form 5n+3.
%C Union of A132233, A132235, {3}. - _Ray Chandler_, Apr 07 2009
%C Primes p such that arithmetic mean of divisors of p^4 is an integer. There are 2 such sequences of primes, this one and A030430. - _Ctibor O. Zizka_, Oct 20 2009
%C 5 is not quadratic residue of primes of this form. - _Vincenzo Librandi_, Jun 25 2014
%C Intersection of A000040 and A017305. - _Iain Fox_, Dec 30 2017
%H Michael B. Porter, <a href="/A030431/b030431.txt">Table of n, a(n) for n = 1..100000</a>
%H A. Granville and G. Martin, <a href="https://arxiv.org/abs/math/0408319">Prime number races</a>, arXiv:math/0408319 [math.NT], 2004.
%F a(n) = 10*A102338(n) + 3.
%t Select[Prime@Range[200], Mod[ #, 10] == 3 &] (* _Ray Chandler_, Nov 07 2006 *)
%t Select[10 Range[0, 150] + 3, PrimeQ] (* _Harvey P. Dale_, Apr 06 2011 *)
%o (PARI) select(n->n%10==3, primes(500)) \\ _Charles R Greathouse IV_, Apr 29 2015
%Y Cf. A045414, A049508, A053179, A102338.
%K nonn
%O 1,1
%A _Warut Roonguthai_
%E Extended by _Ray Chandler_, Nov 07 2006
|