Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A304235
Colossally abundant numbers that are highly composite, but not superior highly composite.
5
160626866400, 9316358251200, 288807105787200, 2021649740510400, 224403121196654400, 9200527969062830400, 395622702669701707200, 1970992304700453905270400, 35468006523084668025340848000, 135483209545341953934626770390608000
OFFSET
1,1
COMMENTS
Numbers m in A004490 that are also in A002182 but not A002201.
Subset of A166981. Numbers in this sequence are in neither A224078 nor A304234.
There are 32 terms in this sequence.
The smallest term is 2^4 * 3^2 * 5 * A002110(9) or the product of k = {1,1,2,3,9} in A002110.
The largest term is 2^9 * 3^5 * 5^3 * 7^2 * 11 * 13 * 17 * 19 * 23 * A002110(66) or the product of A002110(k) with k = {1,1,1,1,2,2,3,4,9,66}, a 146 digit decimal number.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..32
Michael De Vlieger, Color coded plot of m A002182 and A004394 at (x,y) where A301414(x) * A002110(y) = m, terms in this sequence are colored dark red.
Michael De Vlieger, Annotated plot of a(n) for 1 <= n <= 32 at (x,y) = (a(n)/A002110(A001221(a(n)), A002110(A001221(a(n)))
MATHEMATICA
(* First, download b-files at A002182, A002201, and A004490 *)
With[{s = Import["b004490.txt", "Data"][[All, -1]], t = Import["b002182.txt", "Data"][[All, -1]], u = Import["b002201.txt", "Data"][[All, -1]]}, Select[Intersection[s, t], FreeQ[u, #] &]]
KEYWORD
nonn,fini
AUTHOR
Michael De Vlieger, May 08 2018
STATUS
approved