OFFSET
0,3
COMMENTS
Is the sequence eventually cyclic? - Charles R Greathouse IV, Apr 27 2010
LINKS
Sean A. Irvine, Table of n, a(n) for n = 0..91
MAPLE
a:= proc(n) option remember; `if`(n=0, 0, (t-> parse(cat(`if`(isprime(t)
or t<2, [t, 1][], sort([numtheory[factorset](t)[]])[]))))(a(n-1)))
end:
seq(a(n), n=0..30); # Alois P. Heinz, Apr 03 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Jun 08 2000
STATUS
approved