OFFSET
1,1
COMMENTS
Integers k such that k and k+1 are in A046304. - Michel Marcus, Jun 26 2021
EXAMPLE
728 = 2^3*7*13 is a product of 5 primes, while 729 = 3^6 is a product of 6 primes. Thus, 728 is in this sequence.
MAPLE
q:= n-> andmap(x-> numtheory[bigomega](x)>4, [n, n+1]):
select(q, [$1..8000])[]; # Alois P. Heinz, Jun 26 2021
MATHEMATICA
Select[Range[10000], Total[Transpose[FactorInteger[#]][[2]]] > 4 && Total[Transpose[FactorInteger[# + 1]][[2]]] > 4 &]
PROG
(Python)
from sympy import factorint
def ok(n): return all(sum(factorint(n+k).values()) > 4 for k in [0, 1])
print(list(filter(ok, range(8000)))) # Michael S. Branicky, Jun 25 2021
(PARI) isok(k) = (bigomega(k) >= 5) && (bigomega(k+1) >= 5); \\ Michel Marcus, Jun 26 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Tanya Khovanova, Jun 25 2021
STATUS
approved