OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
b:= 4:
Res:= NULL: count:= 0:
while count < 100 do
a:= b;
for k from b+1 do if numtheory:-bigomega(k) = 2 then b:= k; break fi od:
if numtheory:-bigomega(b-a) = 2 and numtheory:-bigomega(b+a) = 2 then
count:= count+1; Res:= Res, a;
fi
od:
Res; # Robert Israel, Nov 10 2022
PROG
(PARI) psp=4; for(k=6, 2000, if(bigomega(k)==2, if(bigomega(k-psp)==2, if(bigomega(k+psp)==2, print1(psp, ", "))); psp=k)) \\ Hugo Pfoertner, Jun 03 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Jun 02 2020
STATUS
approved