A168262 Intersection of A003418 and A116998.
1, 2, 6, 12, 60, 420, 840, 27720, 360360, 5354228880
Offset: 1
Links
- Eric Weisstein's World of Mathematics, Distinct Prime Factors
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
Since the exponents in 1680's prime factorization are (4,1,1,1), the k-th power of 1680 has (4k+1)(k+1)^3 = 4k^4 + 13k^3 + 15k^2 + 7k + 1 divisors. Comparison with the analogous formulas for all smaller members of A025487 shows the following: a) No number smaller than 1680 has a positive coefficient in its "power formula" for any exponent larger than k^4. b) The only power formula with a k^4 coefficient as high as 4 is that for 1260 (4k^4 + 12k^3 + 13k^2 + 6k + 1). c) The k^3 coefficient for 1680 is higher than for 1260. So for all sufficiently high values of k, d(1680^k) > d(m^k) for all m < 1680.
1) 1680 has more divisors than any smaller positive integer; thus for all m < n, d(1680^1) > d(m^1). 2) Since the exponents in 1680's prime factorization are (4,1,1,1), the k-th power of 1680 has (4k+1)(k+1)^3 = 4k^4 + 13k^3 + 15k^2 + 7k + 1 divisors. Comparison with the analogous formulas for all smaller members of A025487 shows the following: a) No number smaller than 1680 has a positive coefficient in its "power formula" for any exponent larger than k^4. b) The only power formula with a k^4 coefficient as high as 4 is that for 1260 (4k^4 + 12k^3 + 13k^2 + 6k + 1). c) The k^3 coefficient for 1680 is higher than for 1260. So for all sufficiently high values of k, d(1680^k) > d(m^k) for all m < 1680. 3) Careful comparison of 1680's "power formula" with the analogous formulas for smaller members of A025487 shows that no intermediate value of k can exist for which d(m^k) >= d(1680^k) if m < 1680.
Column n lists the a(n) positive integers less than n with more distinct prime factors than n: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 --------------------------------------------------------------------- 6 6 6 10 12 15 15 18 6 10 14 14 15 6 12 12 14 10 10 12 6 6 10 6
b:= proc(n) option remember; nops(numtheory[factorset](n)) end: a:= proc(n) option remember; (t-> add(`if`(b(i)>t, 1, 0), i=1..n-1))(b(n)) end: seq(a(n), n=1..100); # Alois P. Heinz, Dec 28 2018
Table[Length[Select[Range[n],PrimeNu[#]>PrimeNu[n]&]],{n,100}]
a(n) = my(omegan=omega(n)); sum(k=1, n-1, omega(k) > omegan); \\ Michel Marcus, Dec 29 2018
first(n) = {my(t = 1, pp = 1, res = vector(n)); forprime(p = 2, oo, pp*=p; if(pp > n, v = vector(t); break); t++); for(i = 1, n, o = omega(i); res[i] = v[o+1]; for(j = 1, o, v[j]++)); res} \\ David A. Corneth, Dec 29 2018
Comments