OFFSET
0,1
LINKS
Patrick De Geest, Home Primes
PROG
(Python)
from sympy import factorint
def iterate(n):
flst, f = [n], sorted(factorint(n, multiple=True))
while len(f) > 1:
flst += f
f = sorted(factorint(int("".join(map(str, f))), multiple=True))
return flst
print(iterate(8)) # Michael S. Branicky, Aug 02 2021
CROSSREFS
KEYWORD
fini,full,nonn,tabf,base
AUTHOR
EXTENSIONS
Edited by Charles R Greathouse IV, Apr 30 2010
STATUS
approved