OFFSET
1,1
LINKS
Zak Seidov, Table of n, a(n) for n = 1..10000
MAPLE
select(t -> numtheory:-bigomega(t)=2 and numtheory:-bigomega(t+4)=2, [$1..1000]); # Robert Israel, Feb 12 2015
MATHEMATICA
Select[Range@ 480, And[PrimeOmega@ # == 2, PrimeOmega[# + 4] == 2] &] (* Michael De Vlieger, Dec 09 2015 *)
PROG
(PARI) isok(n) = (bigomega(n) == 2) && (bigomega(n+4) == 2); \\ Michel Marcus, Feb 12 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Juri-Stepan Gerasimov, Aug 02 2010
EXTENSIONS
Corrected (309 removed) by R. J. Mathar, Aug 03 2010
Definition corrected by Zak Seidov, Feb 12 2015
STATUS
approved