OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
N:= 10^4: # to get all terms where the 6 consecutive semiprimes <= N
P:= select(isprime, [2, seq(i, i=3..N/2, 2)]): nP:= nops(P):
SP:= NULL:
for i from 1 to nP do
for j from 1 to nP while P[i]*P[j] <= N do od:
SP:= SP, op(map(`*`, P[i], P[1..j-1]));
od:
SP:= sort(convert({SP}, list)): nSP:= nops(SP):
select(numtheory:-bigomega=2, [seq(convert(SP[i..i+5], `+`), i=1..nSP-5)]): # Robert Israel, Nov 19 2017
MATHEMATICA
Select[(Total[#] & /@ Partition[Select[Range[4, 9999], 2 == PrimeOmega[#] &], 6, 1]), 2 == PrimeOmega[#] &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Dec 29 2015
STATUS
approved