OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
filter:= proc(p) local t, m, flag;
flag:= false;
for t from p+1 to p+5 do
m:= min(numtheory:-factorset(t));
if m > 5 then return false
elif m = 5 then flag:= true
fi
od;
flag
end proc:
Res:= NULL: count:= 0:
q:= 1: p:= 2:
while count < 100 do
q:= p;
p:= nextprime(p);
if p-q = 6 and filter(q) then
count:= count+1; Res:= Res, q;
fi
od:
Res; # Robert Israel, Aug 12 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 01 2000
STATUS
approved