%I #14 Feb 28 2020 08:43:27
%S 13,17,23,29,41,47,53,71,83,89,107,113,137,149,167,173,191,233,239,
%T 251,281,293,317,347,359,383,389,419,431,443,449,467,509,557,587,617,
%U 641,653,683,701,719,743,761,797,821,839,863,887,929,947,977,1019,1031
%N Primes of the form p + 10 where p is a prime.
%H Vincenzo Librandi, <a href="/A092146/b092146.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = 10 + A023203(n). - _Alois P. Heinz_, Feb 27 2020
%t lst={};Do[p=Prime[n];If[PrimeQ[p=p+10],AppendTo[lst,p]],{n,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 29 2009 *)
%t Select[Prime[Range[200]]+10,PrimeQ] (* _Harvey P. Dale_, Aug 03 2018 *)
%Y Cf. A000040, A006512, A023203, A046132, A046117, A092402.
%K nonn,easy
%O 1,1
%A Douglas Winston (douglas.winston(AT)srupc.com), Mar 31 2004
|