OFFSET
1,1
MATHEMATICA
lst = {}; r[n_] := (len = Length@lst; lst = Flatten@ Join[lst, Select[First /@ FactorInteger[Prime@n - 1], ! MemberQ[lst, # ] &]]; If[l < Length@lst, 1, 0]); Prime /@ Select[Range@185, r[ # ] == 1 &] (* Robert G. Wilson v *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Michel Dauchez (mdzdm(AT)yahoo.fr), Nov 28 2005
EXTENSIONS
Better description from Jack Brennen, Nov 28, 2005
Extended by Ray Chandler and Robert G. Wilson v, Nov 30 2005
STATUS
approved