OFFSET
1,1
LINKS
Zak Seidov and Michael De Vlieger, Table of n, a(n) for n = 1..21728 (first 10000 terms from Zak Seidov)
MATHEMATICA
Select[Range[700], PrimeOmega[#]==PrimeNu[#]==2&&PrimeQ[#-2]&] (* Harvey P. Dale, Feb 01 2014 *)
Select[Prime[Range[200]]+2, PrimeOmega[#]==PrimeNu[#]==2&] (* Harvey P. Dale, Oct 13 2018 *)
PROG
(PARI) is(n)=isprime(n-2) && bigomega(n)==2 && !issquare(n) \\ Charles R Greathouse IV, Jul 20 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Olivier Gérard, Jul 19 2001
STATUS
approved