|
%I #13 Feb 02 2023 19:12:36
%S 11,17,23,41,47,71,83,101,107,113,131,167,197,227,233,281,311,317,353,
%T 383,401,443,461,467,491,503,617,647,677,743,761,773,827,857,863,881,
%U 887,911,941,971,1013,1091,1097,1217,1283,1301,1307,1427,1433,1451
%N Upper prime of a difference of 4 between consecutive primes.
%H Harvey P. Dale, <a href="/A031505/b031505.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = A029710(n-1) + 4 = A029708(n) + 2.
%p for i from 1 to 232 do if ithprime(i+1) = ithprime(i) + 4 then print({ithprime(i+1)}); fi; od; # _Zerinvary Lajos_, Mar 19 2007
%t Select[Partition[Prime[Range[250]],2,1],#[[2]]-#[[1]]==4&][[All,2]] (* _Harvey P. Dale_, Feb 02 2023 *)
%Y Essentially the same as A046132.
%K nonn
%O 1,1
%A _Jeff Burch_
%E Corrected and extended by _Henry Bottomley_, Jul 18 2000
%E Definition clarified by _Harvey P. Dale_, Feb 02 2023
|
