(MAGMAMagma) [ p: p in PrimesUpTo(6000) | p mod 1540 in [41, 61, 101, 129, 241, 321, 349, 369, 381, 409, 461, 481, 549, 601, 629, 689, 761, 769, 789, 901, 909, 941, 1041, 1069, 1161, 1209, 1249, 1349, 1361, 1469]]; // Vincenzo Librandi, Aug 02 2012