OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..2900
MAPLE
A:= {8}: lasta:= 8:
for i from 2 to 1000 do
for x from lasta+8 do
if numtheory:-bigomega(x) = 3 and numtheory:-bigomega(x-lasta) = 3 and numtheory:-bigomega(x+lasta) = 3 then
A:= A union {x}; lasta:= x; break
fi
od od:
R:= {8}: lastb:= 4:
while 2*lastb < lasta do
for x from lastb+4 do
if numtheory:-bigomega(x) = 2 and numtheory:-bigomega(x-lastb) = 2 and numtheory:-bigomega(x+lastb) = 2 then
if member(2*x, A) then R:= R union {2*x} fi;
lastb:= x; break
fi
od od:
sort(convert(R, list));
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov and Robert Israel, Apr 09 2023
STATUS
approved