OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..560
MATHEMATICA
pedQ[n_]:=Module[{fi=Transpose[FactorInteger[n]], a, b}, a=fi[[1]]; b = fi[[2]]; AllTrue[b, PrimeQ]&&Length[b]==Length[Union[b]]&&Intersection[ a, b]=={}]; Select[Range[12000], pedQ] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jan 24 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Wild, Feb 14 2006
STATUS
approved