OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
3 is a term since 3 has the exponent 1 in its prime factorization, and 3 + 1 = 4 = 2^2 has a different exponent in its prime factorization, 2.
MATHEMATICA
q[n_] := UnsameQ @@ Join @@ (Union[FactorInteger[#][[;; , 2]]]& /@ (n + {0, 1})); Join[{1}, Select[Range[400], q]]
PROG
(PARI) lista(nmax) = {my(e1 = [], e2); for(n = 2, nmax, e2 = Set(factor(n)[, 2]); if(setintersect(e1, e2) == [], print1(n-1, ", ")); e1 = e2); }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jan 13 2023
STATUS
approved