OFFSET
1,1
COMMENTS
Are there 3 terms in A359747 that are consecutive integers?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..100
EXAMPLE
7 is a term since 7*8 = 56 = 2^3 * 3^1 has 2 distinct exponents in its prime factorization (1 and 3) and 8*9 = 72 = 2^3 * 3^2 also has 2 distinct exponents in its prime factorization (2 and 3).
MATHEMATICA
q[n_] := UnsameQ @@ (FactorInteger[n*(n+1)][[;; , 2]]); Select[Range[10^5], q[#] && q[#+1] &]
PROG
(PARI) is(n) = { my(e1 = factor(n*(n+1))[, 2], e2 = factor((n+1)*(n+2))[, 2]); #Set(e1) == #e1 && #Set(e2) == #e2; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jan 13 2023
STATUS
approved