OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
fa = FactorInteger; t[n_]:=Length[fa[n]] == 2 && fa[n][[1, 2]]== fa[n][[2, 2]] == 1 && 2 fa[n][[1, 1]]+3 == fa[n][[2, 1]]; Select[1+Range[200000], t]
Times@@#&/@Select[Table[{p, 2p+3}, {p, Prime[Range[200]]}], PrimeQ[#[[2]]]&] (* Harvey P. Dale, Jul 03 2021 *)
PROG
(PARI) list(lim)=my(v=List(), q); forprime(p=2, (sqrt(8*lim+9)-3)\4, if(isprime(q=2*p+3), listput(v, p*q))); Vec(v) \\ Charles R Greathouse IV, Nov 19 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
José María Grau Ribas, Jun 16 2013
STATUS
approved