|
25, 49, 55, 85, 91, 115, 121, 133, 145, 169, 187, 205, 217, 235, 247, 253, 259, 265, 289, 295, 301, 319, 355, 361, 391, 403, 415, 427, 445, 451, 469, 481, 493, 505, 511, 517, 529, 535, 553, 559, 565, 583, 589, 649, 655, 667, 679, 685, 697, 703, 721, 745
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
Select[6 Range[0, 200] + 1, PrimeOmega[#] == 2&] (* Vincenzo Librandi, Sep 22 2012 *)
|
|
PROG
|
(Magma) IsSemiprime:=func<n | &+[d[2]: d in Factorization(n)] eq 2>; [s: n in [2..150] | IsSemiprime(s) where s is 6*n + 1]; // Vincenzo Librandi, Sep 22 2012
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|