OFFSET
1,1
MATHEMATICA
Select[Select[Range[50000], PrimeOmega[#]==2&]*3+4, IntegerQ[Sqrt[#]]&] (* James C. McMahon, Jun 05 2024 *)
PROG
(PARI) select(issquare, apply(x->3*x+4, select(x->(bigomega(x)==2), [1..100000]))) \\ Michel Marcus, Jun 15 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Dec 22 2005
EXTENSIONS
Extended beyond 289 by R. J. Mathar, Jun 28 2010
STATUS
approved