A110465 Prime numbers that when multiplied in order yield the sequence of oddly colossally abundant numbers A110464.

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

Author

T. D. Noe, Jul 21 2005

Keywords

• nonn

Comments

This is sequence A073751 without the "2" terms.

Crossrefs

Cf. A004490 (colossally abundant numbers).

Programs

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