OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..10000
MATHEMATICA
dpfQ[n_]:=PrimeOmega[n]==3&&FactorInteger[n][[1, 1]]>=5; Select[Range[ 2000], dpfQ] (* Harvey P. Dale, May 23 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by Harvey P. Dale, May 23 2014
STATUS
approved