|
%I #6 Jun 12 2013 18:23:18
%S 14,39,65,87,95,119,155,159,215,287,335,377,395,407,447,515,519,559,
%T 623,629,671,695,779,807,879,923,951,959,1115,1159,1167,1415,1527,
%U 1631,1671,1679,1727,1769,1835,1919,1959,2159,2195,2319,2391,2495,2519,3007,3035
%N Semiprimes of the form m*k such that (m-1)/(k+1)=prime.
%H Harvey P. Dale, <a href="/A178564/b178564.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1)=14 because 14=7*2 and (7-1)/(2+1)=2=prime, a(2)=39 because 39=13*3 and (13-1)/(3+1)=3=prime.
%t mkpQ[n_]:=Module[{fs=Transpose[FactorInteger[n]][[1]]},PrimeQ[ (Last[ fs]- 1)/(First[fs]+1)]]; With[{sps=Select[Range[3100],PrimeOmega[#] == 2&]},Select[sps,mkpQ]] (* _Harvey P. Dale_, Jun 12 2013 *)
%Y Cf. A000040, A001358, A178379.
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, May 29 2010
%E Corrected and extended by _R. J. Mathar_ and _D. S. McNeil_, May 31 2010
|
