OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3)=58 is a member because 58=2*29 is an even semiprime and the next semiprime is 62, which is also even.
MAPLE
sp:= select(t -> numtheory:-bigomega(t)=2, [$1..20000]):
sp[select(t -> sp[t]::even and sp[t+1]::even, [$1..nops(sp)-1])];
MATHEMATICA
Select[Partition[Select[Range[10000], PrimeOmega[#]==2&], 2, 1], AllTrue[#, EvenQ]&][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 01 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Oct 02 2019
STATUS
approved