login
A110465
Prime numbers that when multiplied in order yield the sequence of oddly colossally abundant numbers A110464.
1
3, 5, 3, 7, 11, 13, 3, 5, 17, 19, 23, 29, 31, 7, 3, 37, 41, 43, 47, 53, 59, 5, 61, 67, 71, 73, 11, 79, 83, 3, 89, 97, 13, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 7, 157, 163, 167, 17, 173, 179, 181, 191, 193, 197, 199, 19, 211, 3, 223, 227, 229, 5, 233, 239
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
Cf. A004490 (colossally abundant numbers).
Sequence in context: A240499 A248511 A210191 * A354528 A328915 A100338
KEYWORD
nonn
AUTHOR
T. D. Noe, Jul 21 2005
STATUS
approved