|
%I #7 Apr 15 2013 09:42:10
%S 100003,100019,100043,100103,100109,100151,100193,100271,100313,
%T 100379,100523,100547,100613,100673,100733,100769,100787,100811,
%U 100823,100829,100853,100907,100937,101009,101021,101051,101063,101117,101279,101399
%N The larger member of a prime pair (p,p+100000).
%H Vincenzo Librandi, <a href="/A165297/b165297.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1) = 3+100000= 100003. a(2) = 19+100000=100019. a(3) = 43+100000=100043.
%t Select[Prime[Range[1200]] + 100000, PrimeQ] (* _Vincenzo Librandi_, Apr 15 2013 *)
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Sep 14 2009
%E Definition rephrased - _R. J. Mathar_, Sep 16 2009
|
