OFFSET
1,1
LINKS
MATHEMATICA
sig[n_] := Sort @ FactorInteger[n][[;; , 2]]; seq = {}; sigs = {}; Do[If[PrimeQ[p] && !MemberQ[sigs, (s = sig[p + 1])], AppendTo[seq, p]; AppendTo[sigs, s]], {p, 2, 7000}]; seq (* Amiram Eldar, Dec 30 2020 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Sep 11 2003
EXTENSIONS
Edited by Ray Chandler, Sep 14 2003
Offset corrected by Amiram Eldar, Dec 30 2020
STATUS
approved