login
A112392
Squares of the form 3*k - 2 where k is a semiprime.
3
16, 25, 64, 100, 169, 256, 361, 400, 529, 625, 676, 784, 961, 1156, 1444, 2116, 2209, 3136, 3721, 3844, 4096, 4489, 5041, 5929, 7744, 7921, 8281, 9604, 10000, 10201, 11236, 11449, 11881, 12100, 13456, 14641, 16129, 16384, 17161, 18496, 20164
OFFSET
1,1
COMMENTS
Even terms are 6*p-2 for p in A245045. - Robert Israel, May 25 2020
LINKS
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