OFFSET
1,2
COMMENTS
Is this sequence a permutation of the positive integers?
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
The first partial products are:
1
1 * 2 = 2 = 2^1
1 * 2 * 4 = 8 = 2^3
1 * 2 * 4 * 3 = 24 = 2^3 * 3^1
1 * 2 * 4 * 3 * 6 = 144 = 2^4 * 3^2
MATHEMATICA
q[n_] := UnsameQ @@ FactorInteger[n][[;; , 2]]; seq = {1}; prod = 1; Do[k = 1; While[MemberQ[seq, k] || ! q[k*prod], k++]; AppendTo[seq, k]; prod *= k, {100}]; seq
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Amiram Eldar, Apr 02 2021
STATUS
approved