OFFSET
1,1
MATHEMATICA
fQ[n_] := Plus @@ Last /@ FactorInteger@n == 2 && IntegerQ@Sqrt[3n + 4]; Select[ Range@100000, fQ[ # ] &] (* Robert G. Wilson v *)
Select[Range[75000], PrimeOmega[#]==2&&IntegerQ[Sqrt[3#+4]]&] (* Harvey P. Dale, Sep 22 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Dec 29 2005
EXTENSIONS
More terms from Robert G. Wilson v, Dec 30 2005
STATUS
approved