A234101 Primes of the form (p*q*r - 1)/2, where p, q, r are distinct primes.

97, 127, 199, 227, 241, 277, 307, 313, 331, 379, 397, 457, 467, 547, 617, 619, 647, 709, 727, 739, 757, 773, 797, 829, 883, 977, 1033, 1069, 1117, 1123, 1171, 1193, 1277, 1297, 1303, 1319, 1423, 1447, 1459, 1483, 1609, 1621, 1667, 1697, 1699, 1747, 1753

Offset: 1

Author

Clark Kimberling, Dec 27 2013

Keywords

• nonn
• easy

Examples

			(See A234100.)
		

Crossrefs

Cf. A234099, A234100, A234093, A234102.

Programs

Mathematica

t = Select[Range[1, 10000, 2], Map[Last, FactorInteger[#]] == Table[1, {3}] &]; Take[(t - 1)/2, 120] (* A234099 *)
v = Flatten[Position[PrimeQ[(t - 1)/2], True]] ; w = Table[t[[v[[n]]]], {n, 1, Length[v]}]  (* A234100 *)
(w - 1)/2 (* A234101 *)    (* Peter J. C. Moses, Dec 23 2013 *)