|
%I #4 Mar 28 2018 14:57:52
%S 6,9,22,34,57,86,121,134,177,209,226,262,321,386,482,706,737,1046,
%T 1241,1282,1366,1497,1681,1977,2582,2641,2761,3202,3334,3401,3746,
%U 3817,3961,4034,4486,4881,5377,5462,5721,6166,6722,6817,7009,7401,7601,7702,8857
%N Semiprimes n such that 3*n - 2 is a square.
%H Harvey P. Dale, <a href="/A112393/b112393.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[10000],PrimeOmega[#]==2&&IntegerQ[Sqrt[3#-2]]&] (* _Harvey P. Dale_, Mar 28 2018 *)
%o (PARI) for(i=1,15000,if(bigomega(i)==2&&issquare(3*i-2),print1(i,","))) (Herrgesell)
%Y Cf. A112392.
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Dec 05 2005
%E More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 12 2005
|
