OFFSET
1,1
COMMENTS
Even terms are 6*p-2 for p in A245045. - Robert Israel, May 25 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..1000
MAPLE
select(issqr, map(t -> 3*t-2, select(t -> numtheory:-bigomega(t)=2, [$1..10000]))); # Robert Israel, May 25 2020
MATHEMATICA
Select[3#-2&/@Select[Range[7000], PrimeOmega[#]==2&], IntegerQ[ Sqrt[#]]&] (* Harvey P. Dale, Jun 22 2011 *)
PROG
(PARI) for(i=1, 15000, if(bigomega(i)==2&&issquare(3*i-2), print1(3*i-2, ", "))) (Herrgesell)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Dec 05 2005
EXTENSIONS
More terms from Lambert Herrgesell (zero815(AT)googlemail.com), Dec 12 2005
STATUS
approved