OFFSET
1,1
COMMENTS
399=3*7*19; 3+7+19=29; 3^2+7^2+19^2=419; 3^3+7^3+19^3=7229,..
MATHEMATICA
lst={}; Do[If[l[n]=={1, 1, 1}, a=f[n][[1]]; b=f[n][[2]]; c=f[n][[3]]; If[PrimeQ[a+b+c]&&PrimeQ[a^2+b^2+c^2]&&PrimeQ[a^3+b^3+c^3], AppendTo[lst, n]]], {n, 9!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Apr 28 2010
STATUS
approved