%I #5 Dec 04 2016 19:46:33
%S 52,82,97,115,127,136,142,172,178,192,199,214,217,227,232,241,277,280,
%T 297,304,307,313,322,325,331,332,352,357,370,379,388,397,402,430,442,
%U 448,451,457,467,478,484,493,500,502,507,511,522,532,542,547,552,556
%N Integers of the form (p*q*r - 1)/2, where p, q, r are distinct primes.
%F -1 + A234102.
%e 52 = (3*5*7 - 1)/2.
%t t = Select[Range[1, 10000, 2], Map[Last, FactorInteger[#]] == Table[1, {3}] &]; Take[(t - 1)/2, 120] (* A234099 *)
%t v = Flatten[Position[PrimeQ[(t - 1)/2], True]] ; w = Table[t[[v[[n]]]], {n, 1, Length[v]}] (* A234100 *)
%t (w - 1)/2 (* A234101 *) (* _Peter J. C. Moses_, Dec 23 2013 *)
%Y Cf. A234100, A234101, A234093, A234102.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Dec 27 2013
|