OFFSET
1,1
MAPLE
p:=ithprime;
t1:=[];
for i from 1 to 100 do
p1:=p(i);
for j from i to 100 do
p2:=p(j);
if isprime(p2+2) then t1:=[op(t1), p1*p2]; fi;
od: od:
t2:=sort(t1);
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Oct 17 2009
STATUS
approved