OFFSET
1,1
COMMENTS
Since m and m+1 cannot have a common factor, m(m+1) has at least 2+3 prime divisors (= distinct prime factors), whence m+1 > sqrt(primorial(5)) ~ 48. It turns out that a(1)*(a(1)+1) = 2*3*5*11*13, i.e., the prime factor 7 is not present.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Position[Partition[PrimeNu[Range[350]], 2, 1], _?(#[[1]]>1&&#[[2]]>1&&(#[[1]]>2||#[[2]]>2)&), 1, Heads->False]//Flatten (* Harvey P. Dale, May 24 2026 *)
PROG
(PARI) select( is_A321502(n)=vecmax(n=[omega(n), omega(n+1)])>2&&vecmin(n)>1, [1..500])
CROSSREFS
KEYWORD
nonn
AUTHOR
M. F. Hasler, Nov 27 2018
STATUS
approved
