OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
EXAMPLE
36=2^2*3^2, 40=2^3*5; 56=2^3*7, 60=2^2*3*5.
MATHEMATICA
Select[Range[1690], PrimeOmega[#]==PrimeOmega[#+4]==4 &] (* James C. McMahon, Dec 07 2024 *)
PROG
(PARI) isok(n) = (bigomega(n) == 4) && (bigomega(n+4) == 4); \\ Michel Marcus, Oct 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Nov 13 2006
STATUS
approved