OFFSET
1,2
COMMENTS
This sequence is a recursive version of A064988.
This sequence is injective (all terms are distinct).
LINKS
Rémy Sigrist, Table of n, a(n) for n = 1..10000
MATHEMATICA
Fold[Function[{a, n}, Append[a, Times @@ Map[Prime[#1]^a[[#2]] & @@ # &, FactorInteger@ n]]], {1}, Range[2, 50]] (* Michael De Vlieger, Mar 19 2018 *)
PROG
(PARI) a(n) = my (f=factor(n)); prod (i=1, #f~, prime(f[i, 1])^a(f[i, 2]))
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Rémy Sigrist, Mar 18 2018
STATUS
approved