OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1...1000 from Vincenzo Librandi)
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}&&FactorInteger[n][[1, 1]]>2&&Floor[FactorInteger[n][[2, 1]]/FactorInteger[n][[1, 1]]]==1; lst={}; Do[If[f[n], AppendTo[lst, n]], {n, 7!}]; lst (* Vladimir Joseph Stephan Orlovsky, May 19 2010 *)
pq2pQ[n_]:=Module[{fi=FactorInteger[n][[All, 1]]}, PrimeOmega[n]==2 && fi[[1]]< fi[[2]]< 2fi[[1]]]; Select[Range[1, 2301, 2], pq2pQ]//Quiet (* Harvey P. Dale, Jul 31 2021 *)
PROG
(PARI) list(lim)=my(v=List()); forprime(p=3, sqrtint(lim\=1), forprime(q=p+1, min(lim\p, 2*p), listput(v, p*q))); Set(v) \\ Charles R Greathouse IV, Mar 03 2021
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Naohiro Nomoto, May 18 2003
EXTENSIONS
New name based on a Jan 23 2004 comment from Vladeta Jovovic - Charles R Greathouse IV, Mar 03 2021
STATUS
approved