|
%I #22 Feb 19 2024 14:54:58
%S 3,7,43,139,251,683,1549,2273,2393,2731,3217,3529,3943,4339,4723,4799,
%T 4909,5531,5801,7907,9421,10009,11549,12263,12791,13441,14011,14683,
%U 15559,18089,19087,20921,22271,22391,23279,24001,24107,24767,24809,26681,26861,27793
%N Lesser prime in pair prime(k) +/- k for some k.
%F a(n) = prime(A064403(n)) - A064403(n).
%e a(1) = 3 because A064403(1) = 4 and prime(4) - 4 = 7 - 4 = 3.
%t R=3000;L=Select[Range[R], AllTrue[Prime[#]+{#, -#}, PrimeQ]&];Prime/@L-L (* _James C. McMahon_, Feb 18 2024 *)
%Y Cf. A064403 (values of k), A107637, A143794 (prime(k)).
%K nonn
%O 1,1
%A _Zak Seidov_, May 19 2005
|
