OFFSET
1,2
EXAMPLE
For 6 the next two numbers such that all are pairwise coprime are 7 and 11.
All three numbers 6*7+11, 6*11+7, 7*11+6 are prime, therefore 6 is in the sequence.
MATHEMATICA
l = {}; For[n = 1, n < 2000, n++, a = n; i = 1; While[Not[GCD[a, a + i]], i++ ]; b = a + i; i = 1; While[Not[GCD[a, b + i] == 1 && GCD[b, b + i] == 1], i++ ]; c = b + i; If[PrimeQ[a*b + c] && PrimeQ[a*c + b] && PrimeQ[b*c + a], AppendTo[l, n]]]; l
apQ[{a_, b_, c_}]:=AllTrue[{a*b+c, b*c+a, a*c+b}, PrimeQ]; tccn[n_]:=
Join[ {n}, Take[Select[Range[n + 1, 20 + n], CoprimeQ[n, #] &], 2]]; Transpose[Select[Table[tccn[n], {n, 1600}], apQ]][[1]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Aug 18 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot, Apr 30 2007
EXTENSIONS
Edited and extended by Stefan Steinerberger, Aug 07 2007
STATUS
approved