|
%I #14 Sep 08 2022 08:45:47
%S 103,107,113,131,137,167,173,179,197,227,239,251,257,263,281,293,311,
%T 383,431,449,467,479,509,521,557,563,587,599,641,647,677,701,719,743,
%U 761,773,809,827,839,857,887,911,929,953,977,983,1019,1091,1097,1109,1151,1163
%N The larger member of a prime pair (p, p+100).
%C Subsequence of A100750.
%H Vincenzo Librandi, <a href="/A165294/b165294.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1) = 3+100=103, a(2)=7+100=107, a(3)=13+100=113.
%t Select[Prime[Range[200]] + 100, PrimeQ] (* _Vincenzo Librandi_, Sep 12 2013 *)
%o (Magma) [p+100: p in PrimesUpTo(1200)| IsPrime(p+100)]; // _Vincenzo Librandi_, Sep 12 2013
%K nonn,easy
%O 1,1
%A _Vincenzo Librandi_, Sep 14 2009
%E Definition rephrased, relation to A100750 added, 563, 719 etc. inserted - _R. J. Mathar_, Sep 16 2009
|
