cp's OEIS Frontend

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.

Showing 1-10 of 39 results. Next

A140999 Members of A067128 that are the smallest numbers with their prime signatures.

Original entry on oeis.org

1, 2, 4, 6, 8, 12, 24, 30, 36, 48, 60, 72, 96, 120, 180, 240, 360, 420, 480, 720, 840, 1080, 1260, 1440, 1680, 2160, 2520, 3360, 4320, 4620, 5040, 7560, 9240, 10080, 12600, 13860, 15120, 18480, 20160, 25200, 27720, 30240, 36960, 37800, 40320, 45360
Offset: 1

Views

Author

J. Lowell, Jul 28 2008

Keywords

Comments

Includes all members of A002182.
Conjecture (false!): includes all members of A094348.
Contribution from Matthew Vandermast, Oct 10 2008: (Start)
Counterexample to conjecture: 5354228880, the smallest positive multiple of the first 23 positive integers, does not belong to A067128. It is the smallest member of A003418 (a subsequence of A094348) not to be largely composite.
Intersection of A067128 and A025487.
Includes all members of A097212. (End)

Examples

			3 doesn't qualify because it's not the smallest number with its prime signature. 16 does not qualify because it's not a member of A067128.
		

Programs

  • Mathematica
    PrimeExponents[n_] := Last /@ FactorInteger[n]; lpe = {}; ln = {1};dm=1; Do[d=DivisorSigma[0,n]; If[d>=dm, dm=d; pe = Sort@PrimeExponents@n; If[ FreeQ[lpe, pe], AppendTo[lpe, pe]; AppendTo[ln, n]]], {n, 2, 50000}]; ln (* Amiram Eldar, Jun 20 2019 after Robert G. Wilson v at A025487 *)

Extensions

More terms from Matthew Vandermast, Oct 10 2008, Oct 14 2008

A272314 Number of representations of A067128(n), n>=2, as sum A067128(k)+A067128(t), k<=t, or a(n)=0 if there is no such expression.

Original entry on oeis.org

1, 1, 2, 2, 2, 2, 3, 2, 3, 3, 3, 3, 3, 3, 3, 3, 3, 5, 5, 6, 4, 5, 3, 2, 3, 3, 3, 3, 4, 5, 2, 5, 4, 7, 7, 5, 5, 4, 4, 3, 4, 2, 2, 3, 4, 4, 4, 5, 8, 3, 3, 3, 3, 3, 4, 3, 4, 3, 5, 4, 4, 3, 5, 7, 4, 6, 3, 8, 6, 8, 6, 6, 6, 3, 4, 4, 4, 4, 4, 5, 5, 4, 5, 4, 4, 4, 6
Offset: 2

Views

Author

Vladimir Shevelev, May 10 2016

Keywords

Comments

The first zero terms calculated by Peter J. C. Moses appear for n=163,186,248,...

Crossrefs

Extensions

More terms from Peter J. C. Moses, May 10 2016

A272879 Numbers n such that A067128(n+1) - A067128(n) is not in A067128.

Original entry on oeis.org

47, 89, 93, 96, 105, 111, 112, 120, 123, 139, 143, 150, 151, 155, 161, 162, 168, 170, 172, 176, 177, 185, 186, 193, 194, 195, 199, 202, 203, 204, 216, 223, 224, 227, 234, 236, 239, 240, 245, 246, 247, 253, 254, 260, 263, 264, 266, 271, 273, 274, 276, 280, 289
Offset: 1

Views

Author

Keywords

Examples

			A067128(48) - A067128(47) = 4620-4320=300. But 300 is not in A067128. So 47 is a member.
		

Crossrefs

Cf. A067128.

A272901 Smallest k>=1 such that A067128(n+k) - A067128(n) is in A067128 or a(n)=0 if there is no such k.

Original entry on oeis.org

1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 2
Offset: 1

Views

Author

Keywords

Comments

For n=151, the required k, if it exists, should be >9800. So one can conjecture that a(151) is the first zero term.

Crossrefs

Programs

A273379 Ramanujan's largely composite numbers n (A067128) which are not divisible by all the primes < p, where p is the greatest prime divisor of n.

Original entry on oeis.org

3, 10, 20, 84, 168, 336, 504, 660, 672, 3960, 4680, 32760, 42840, 43680, 65520, 98280, 131040, 163800, 196560, 262080, 327600, 393120, 471240, 491400, 655200, 942480, 982800, 1053360, 1413720, 1884960, 1965600, 2106720, 2827440, 5654880, 6320160, 13693680, 14137200, 20540520, 27387360, 28274400
Offset: 1

Views

Author

Keywords

Comments

No term is a highly composite number (A002182), since as P. Erdős noted, every highly composite number is divisible by every prime less than p; on the other hand, the sequence is a strict subsequence of A244353.
Let p=prime(k), k=k(n), be the greatest prime divisor of a(n). David A. Corneth noted that a(11)=4680 is the first term which is not divisible by both prime(k-2) and prime(k-1).
What is the next such term?
Is there a case when prime(k-1) divides a(n), but prime(k-2) does not? - Vladimir Shevelev, May 21 2016
From David A. Corneth, May 22 2016: (Start)
It seems that most terms have the property mentioned in the second comment. 105753195046699200 is the first term whose three largest distinct prime divisors are consecutive primes. No other terms below that number have that property.
There are many terms where prime(k-1) divides a(n), but prime(k-2) does not. They are 107442720, 537213600, 1074427200, 1889727840, 9448639200, 18897278400, 37794556800, ... (End)
Intersection of A067128 and A080259. - Michel Marcus, May 22 2016; edited by Michael De Vlieger, Jan 23 2024
From Vladimir Shevelev, May 23 2016: (Start)
To explain what happens, note that, if p = p_k = prime(k), k = k(n), is the greatest prime divisor of a(n), then b(n)=a(n)*prime(k+r)/prime(k) is also in the sequence, if between a(n) and b(n) there is no highly composite number(HCN). Indeed, d(a(n))=d(b(n)) and in the interval [a(n),b(n)] there is no number x with a greater d(x).
For example, between the term 3960=2^3*3^2*5*11 and 4680=3960*13/11 there is no HCN, so 4680 is also a term; however, between 3960 and 3960*17/11=6120 there is an HCN, so 6120 is not a term.
If n is a large HCN, then its greatest prime divisor is O(log n)[Erdős]. So we can also say that prime(k)=O(log n), since, by Erdős's theorem, if n_1 is the next HCN, then n < n_1 < n + n*(log n)^-c, where c > 0 is constant. So if
p_(k+r)/p_k < 1 + (log n)^-c (1)
then there is a real possibility that there are numbers a(m)*p_(k+i)/p_k, i=1,...,r, which are all terms, where a(m) is between n and the next HCN. Note that (1) means that (1+o(1))*(k+r)*log(k+r)/(k*log k) < 1 + (log n)^-c, where k=O(log n/loglog n). Since, for r < k, log(k+r) = log k + log(1+r/k) ~ log k +r/k + O((r/k)^2), then log(k+r)/log k = 1 + O(r/(k*log k). Thus (1) means r < k/(log n)^c = O(log n)^(1-c)/loglog n. Thus if c < 1, then r could be arbitrary large for sufficiently large n.
Moreover, the numerical results of David A. Corneth (cf. A273415) allow us to conjecture that indeed 0 < c < 1. (End)

Crossrefs

Programs

  • Mathematica
    r = 0; fQ[x_] := Nor[IntegerQ @Log2[x], And[EvenQ[x], Union@ Differences@ PrimePi[FactorInteger[x][[All, 1]]] == {1}]]; Reap[Do[If[# >= r, r = #; If[fQ[i], Sow[i]]] &[DivisorSigma[0, i] ], {i, 2^20}] ][[-1, 1]] (* Michael De Vlieger, Jan 23 2024 *)

Extensions

Inserted a missed term a(11)=4680 by David A. Corneth, May 21 2016
Inserted missing a(13), a(28), a(32) and a(35) by David A. Corneth, May 22 2016

A308530 The number of largely composite numbers (A067128) having the same number of divisors as the n-th highly composite number A002182(n).

Original entry on oeis.org

1, 2, 1, 3, 3, 2, 1, 1, 6, 2, 1, 2, 9, 1, 2, 2, 2, 8, 1, 2, 3, 2, 1, 1, 9, 1, 1, 3, 2, 5, 2, 2, 2, 8, 1, 2, 1, 6, 3, 6, 2, 2, 1, 6, 1, 1, 1, 5, 1, 3, 8, 1, 2, 5, 3, 10, 1, 2, 2, 4, 2, 3, 8, 2, 1, 6, 4, 11, 1, 1, 2, 2, 4, 2, 2, 6, 2, 4, 4, 8, 1, 5, 2, 1, 3, 4
Offset: 1

Views

Author

Amiram Eldar, Jun 06 2019

Keywords

Examples

			a(4) = 3 since there are 3 largely composite numbers with the same number of divisors as the 4th highly composite number 6: 6, 8, and 10.
		

Crossrefs

Programs

  • Mathematica
    s = {}; dm = 1; c = 0; Do[d = DivisorSigma[0, n]; If[d == dm, c++]; If[d > dm, dm = d; AppendTo[s, c]; c = 1], {n, 1, 10^8}]; s

A273014 Least k such that A067128(k) is divisible by n.

Original entry on oeis.org

1, 2, 3, 4, 7, 5, 17, 6, 9, 7, 33, 8, 49, 17, 12, 14, 67, 9, 104, 10, 17, 33, 161, 11, 31, 49, 20, 17, 249, 12, 273, 19, 33, 67, 27, 13, 318, 104, 49, 21, 324, 17, 405, 33, 18, 161, 538, 14, 142, 31, 67, 49, 586, 20, 33, 22, 104, 249, 721, 15, 766, 273, 29, 58, 49, 33, 1127, 67, 161, 27, 1252, 16, 1256, 318, 31, 104, 48, 49
Offset: 1

Views

Author

David A. Corneth, May 13 2016

Keywords

Examples

			A067128(17) = 84. 84 is divisible by the 7. For any m < 17, A067128(m) is not divisible by 7, so a(7) = 17.
		

Crossrefs

Programs

  • Mathematica
    a = {}; b = {0}; Do[If[# >= Max@ b, AppendTo[a, k] && AppendTo[b, #]] &@ DivisorSigma[0, k], {k, 10^7}]; Table[k = 1; While[! Divisible[a[[k]], n], k++]; k, {n, 22}] (* Michael De Vlieger, May 15 2016, for more terms use b-file data at A067128 *)

Extensions

a(20)-a(64) from Peter J. C. Moses, May 13 2016

A273057 Largest term in A067128 having greatest prime divisor prime(n).

Original entry on oeis.org

8, 108, 4320, 151200, 3326400, 108108000, 10291881600, 586637251200, 53970627110400, 5869305698256000, 667144414368432000, 26928374543598528000, 3036174229790734032000, 522221967524006253504000, 159538811078583910445472000, 16911113974329894507220032000, 1164048345233041071913645536000, 304315495968066451657424475840000, 28544793521804633165466415833792000, 2026680340048128954748115524199232000
Offset: 1

Views

Author

Keywords

Comments

By the theorem of Vladimir Shevelev mentioned in sequence A273015, such an element exists for each prime.

Crossrefs

Programs

  • Mathematica
    a = {}; b = {0}; Do[If[# >= Max@ b, AppendTo[a, k] && AppendTo[b, #]] &@
    DivisorSigma[0, k], {k, 10^7}]; TakeWhile[Table[SelectFirst[Reverse@ a,
    FactorInteger[#][[-1, 1]] == Prime@ n &], {n, 6}], # < Max@ a &] (* Michael De Vlieger, May 14 2016 *)

A273353 Number of divisors of A067128(n).

Original entry on oeis.org

1, 2, 2, 3, 4, 4, 4, 6, 6, 6, 8, 8, 9, 10, 12, 12, 12, 12, 12, 12, 16, 16, 18, 20, 20, 24, 24, 24, 24, 24, 24, 24, 24, 24, 30, 32, 32, 36, 36, 40, 40, 48, 48, 48, 48, 48, 48, 48, 48, 60, 64, 64, 72, 72, 72, 80, 80, 84, 90, 96, 96, 96, 96, 96, 96, 96, 96, 96, 100, 108, 120, 120, 120, 128, 128, 144, 144, 144, 144, 144, 160
Offset: 1

Views

Author

David A. Corneth, May 20 2016

Keywords

Comments

Is a(n + 1) / a(n) ~ 1 for large n?
Every term in this sequence also appears in A002183, where every element of this sequence occurs exactly once.
In A067128 it is asked if A034287 = A067128. If that is the case then this sequence is also the number of divisors of A034287.

Crossrefs

Programs

  • Mathematica
    s = {}; dmax = 0; Do[d = DivisorSigma[0, n]; If[d >= dmax, AppendTo[s, d]; dmax = d], {n, 1, 10^6}]; s (* Amiram Eldar, Jun 07 2019 *)
  • PARI
    is_a067128(n) = my(nd=numdiv(n)); for(k=1, n-1, if(numdiv(k) > nd, return(0))); return(1)
    for(n=1, 50000, if(is_a067128(n), print1(numdiv(n), ", "))) \\ Felix Fröhlich, May 24 2016

Formula

a(n) = A000005(A067128(n)).

A273038 Least k such that for all m >= k, A067128(m) is divisible by n.

Original entry on oeis.org

1, 4, 11, 33, 35, 11, 50, 67, 94, 35, 113, 33, 197, 50, 35, 249, 247, 94, 276, 35, 50, 113, 427, 67, 354, 197, 453, 50, 765, 35, 855, 544, 113, 247, 50, 94, 1130, 276, 197, 67, 1274, 50, 1457, 113, 94, 427, 1853, 249, 994, 354, 247, 197, 3433, 453, 113, 67, 276, 765, 3757, 35, 4123, 855, 94, 1703, 197, 113, 4465
Offset: 1

Views

Author

David A. Corneth, May 13 2016

Keywords

Comments

A proof of the existence of a(n) for all n was given by Vladimir Shevelev, May 14 2016, as follows:
(Start)
I give a proof of the existence of k in new David's sequence A273038: "Least k such that for all m >= k, A067128(m) is divisible by n."
Let us change the notation. Suppose N in A067128 has prime power factorization (PPF) N=2^k_1*...*p_n^k_n, k_n>=1, (1)
where p_i=prime(i).
From my theorem in A273015 it follows that, when N runs through A067128, p_n in (1) is unbounded and, moreover, tends to infinity, when N tends to infinity.
Let us show that, when N runs through A067128, k_1 is also unbounded.
Indeed, suppose k_1 is bounded. Consider a number N_1 with PPF N_1=2^(k_1+x)*...*p_(n-1)^k_(n-1) such that all powers p^i , i=2,...,n-1, are the same as in (1) and satisfy 2^x
Then N_1d(N).
We want (k_1+x+1)*...*(k_(n-1)+1)>(k_1+1)*...*(k_(n-1)+1)*(k_n+1), or k_1+x+1>(k_1+1)*(k_n+1)=k_1*k_n+k_n+k_1+1, or x>(k_1+1)*k_n.
So, by (2), (k_1+1)*k_n
Since by hypothesis k_1 is bounded, for large n we can choose the required x, which gives a contradiction. So k_1 is unbounded.
Moreover, we see that k_1 tends to infinity as log_2(p_n), n=n(N), when N tends to infinity, otherwise (3) again leads to contradiction.
Suppose m=2^m_1*3^m_2*...*p_r^m_r.
We can choose k_1 > m_1. In the same way we prove that k_2 tends to infinity and choose k_2 > m_2,..., and so on. k_r tends to infinity and we choose k_r > m_r. All k_i , i=1,...,r tend to infinity at least as log_p_r(p_n), n=n(N).
So there exists a large M_m such that for all N from A067128 > M_m, m|N.
(End)
Showing 1-10 of 39 results. Next