OFFSET
1,1
COMMENTS
This is sequence A073751 without the "2" terms.
MATHEMATICA
maxN=100; f={{3, 1}, {5, 0}}; primes=1; lst={3}; x=Table[pFactor[f[[i]]], {i, primes+1}]; For[n=2, n<=maxN, n++, i=Position[x, Max[x]][[1, 1]]; AppendTo[lst, f[[i, 1]]]; f[[i, 2]]++; If[i>primes, primes++; AppendTo[f, {Prime[i+2], 0}]; AppendTo[x, pFactor[f[[ -1]]]]]; x[[i]]=pFactor[f[[i]]]]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Jul 21 2005
STATUS
approved