OFFSET
1,1
EXAMPLE
(5+7)/2=6->2*3, (13+17)/2=15->3*5,..
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[p=Prime[n]; q=Prime[n+1]; s=(p+q)/2; If[f[s], AppendTo[lst, p]], {n, 6!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 12 2009
STATUS
approved