|
%I #61 Jan 19 2023 22:48:27
%S 6,10,15,21,35,55,77,91,143,187,221,247,323,391,437,551,667,713,899,
%T 1073,1147,1271,1517,1591,1763,1927,2021,2279,2491,2773,3127,3233,
%U 3599,3953,4087,4331,4757,4891,5183,5609,5767,6059,6557,7031,7387,8051,8633,8989,9797,9991
%N Numbers that are either the product of two consecutive primes or two primes with a prime in between.
%C In other words, these are numbers that are the product of two distinct primes whose prime indices differ by at most two.
%H Robert Israel, <a href="/A333747/b333747.txt">Table of n, a(n) for n = 1..10000</a>
%F Union of A006094 and A090076.
%F a(n) = prime(ceiling(n/2))*prime(ceiling((n+3)/2)).
%F a(2*n-1) = prime(n)*prime(n+1).
%F a(2*n) = prime(n)*prime(n+2).
%p R:= NULL;
%p p:= 2; q:= 3;
%p for n from 1 to 100 by 2 do
%p r:= nextprime(q);
%p R:= R, p*q, p*r;
%p p:= q; q:= r;
%p od:
%p R; # _Robert Israel_, Apr 22 2020
%t a[n_] := Prime[Ceiling[n/2]] * Prime[Ceiling[(n + 3)/2]]; Array[a, 50] (* _Amiram Eldar_, Apr 04 2020 *)
%Y Subsequence of A001358.
%Y Cf. A000040, A006094, A090076, A110654, A332765, A332877.
%K nonn,easy
%O 1,1
%A _Bobby Jacobs_, Apr 03 2020
|
