OFFSET
1,1
COMMENTS
2*3=6;3-2=1;6-1=5, 2*5=10;5-2=3;10-3=7, 3*5=15;5-3=2;15-2=13,..
MATHEMATICA
lst={}; Do[pa=Prime[a]; Do[pb=Prime[b]; sp=pa*pb; dp=Abs[pa-pb]; If[PrimeQ[sp-dp]&&PrimeQ[sp+dp], AppendTo[lst, sp-dp]], {b, a+1, 5!}], {a, 5!}]; Union@lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Mar 31 2010
STATUS
approved