A110465 - OEIS

%I #6 Mar 30 2012 17:22:40

%S 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,

%T 11,79,83,3,89,97,13,101,103,107,109,113,127,131,137,139,149,151,7,

%U 157,163,167,17,173,179,181,191,193,197,199,19,211,3,223,227,229,5,233,239

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

%C This is sequence A073751 without the "2" terms.

%t 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

%Y Cf. A004490 (colossally abundant numbers).

%K nonn

%O 1,1

%A _T. D. Noe_, Jul 21 2005