A321494 Numbers k such that k and k+1 have at least 4 but not both exactly 4 distinct prime factors.
38570, 40754, 51414, 51765, 58695, 60605, 62985, 66044, 68585, 70889, 71070, 73185, 73814, 74865, 77349, 82004, 83265, 83720, 83979, 85085, 87009, 90804, 90915, 91805, 91884, 92378, 94094, 94829, 96459, 97565, 98769, 98889, 100814, 101269, 101660, 104005, 104754, 105468, 107184, 108030, 108185, 108965
Offset: 1
Keywords
Programs
-
Mathematica
aQ[n_]:=Module[{v={PrimeNu[n],PrimeNu[n+1]}},Min[v]>3 && v!={4,4}]; Select[Range[120000], aQ] (* Amiram Eldar, Nov 12 2018 *)
-
PARI
is(n)=vecmin(n=[omega(n),omega(n+1)])>=4&&n!=[4,4]
Comments