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.

Previous Showing 21-30 of 378 results. Next

A168262 Intersection of A003418 and A116998.

Original entry on oeis.org

1, 2, 6, 12, 60, 420, 840, 27720, 360360, 5354228880
Offset: 1

Views

Author

Matthew Vandermast, Nov 23 2009

Keywords

Comments

If, for some prime p, A045948(p) > p^2, then all members of the sequence are less than A003418(p). (Let p_(n) be a prime for which the inequality is satisfied, and let p_(n+1) be the smallest prime > (p_(n))^2. No number smaller than A003418(p_(n+1)) can belong to this sequence. However, for any p_(n) that satisfies the inequality, so does p_(n+1), leading to an endless cycle.) This inequality is first satisfied at p=53, as A045948(53)=5040 > 53^2=2809.
Proof: It follows from the definitions of p_(n) and p_(n+1), and from Bertrand's Postulate, that 2(A045948(p_(n))) > 2((p_(n))^2) > p_(n+1). Therefore 2((A045948(p_(n)))^2 > (p_(n+1))^2.
Since any prime that divides A003418(p_(n)) divides A003418(p_(n+1)) at least twice as often, A045948(p_(n+1)) cannot be less than the product of (A045948(p_n))^2 and A034386(p_(n)). (The latter term greatly exceeds 2 for any actual p_(n).)
Therefore A045948(p_(n+1)) > 2((A045948(p_n))^2 > (p_(n+1))^2, and p_(n+1) satisfies the inequality, implying that no number smaller than A003418(p_(n+2)) can belong to this sequence.

Crossrefs

Also intersection of A003418 and A060735, and of A003418 and A168264. (A168264 is a subsequence of A060735, which is a subsequence of A116998.)
See also A001221, A168263.

A173185 Partial sums of A003418.

Original entry on oeis.org

1, 2, 4, 10, 22, 82, 142, 562, 1402, 3922, 6442, 34162, 61882, 422242, 782602, 1142962, 1863682, 14115922, 26368162, 259160722, 491953282, 724745842, 957538402, 6311767282, 11665996162, 38437140562, 65208284962, 145521718162, 225835151362, 2554924714162
Offset: 0

Views

Author

Jonathan Vos Post, Feb 12 2010

Keywords

Comments

From Antti Karttunen, Feb 27 2014: (Start)
For all n >= 4, a(n) mod 10 = 2 (as A003418(5) = 60, the first multiple of ten in that sequence).
For all n >= 24, a(n) mod 100 = 62 (as A003418(25) = 26771144400, the first multiple of one hundred in that sequence).
Cf. also A236856.
a(n-1) gives the position of the first element of row n in irregular tables like A238280.
(End)

Crossrefs

Programs

  • Maple
    b:= proc(n) b(n):= `if`(n=0, 1, ilcm(n, b(n-1))) end:
    a:= proc(n) a(n):= `if`(n<0, 0, a(n-1) +b(n)) end:
    seq(a(n), n=0..35);  # Alois P. Heinz, Mar 31 2018
  • Mathematica
    Table[If[n == 0, 1, LCM @@ Range[n]], {n, 0, 50}] // Accumulate (* Jean-François Alcover, Jan 03 2022 *)
  • PARI
    a(n) = sum(k=0, n, lcm(vector(k, i, i))); \\ Michel Marcus, Mar 13 2018
  • Scheme
    (define (A173185 n) (if (< n 1) 1 (+ (A173185 (- n 1)) (A003418 n))))
    

Formula

a(n) = Sum_{i=0..n} A003418(i).

Extensions

Missing term a(9)=3922 inserted by Antti Karttunen, Feb 27 2014

A215259 Nearest integer to log(A003418(n)).

Original entry on oeis.org

0, 0, 1, 2, 2, 4, 4, 6, 7, 8, 8, 10, 10, 13, 13, 13, 13, 16, 16, 19, 19, 19, 19, 22, 22, 24, 24, 25, 25, 28, 28, 32, 33, 33, 33, 33, 33, 36, 36, 36, 36, 40, 40, 44, 44, 44, 44, 48, 48, 49, 49, 49, 49, 53, 53, 53, 53, 53, 53, 58, 58, 62, 62, 62, 62, 62, 62, 67, 67, 67, 67, 71, 71, 75, 75, 75, 75, 75, 75, 79, 79, 81, 81, 85, 85, 85, 85, 85, 85, 89, 89, 89, 89, 89, 89
Offset: 0

Views

Author

N. J. A. Sloane, Sep 14 2012

Keywords

Crossrefs

Programs

  • PARI
    v=List([0]);t=1;for(n=1,100,listput(v,round(log(t=lcm(t,n))))); Vec(v) \\ Charles R Greathouse IV, Sep 23 2012

Formula

a(n) ~ n, a statement equivalent to the Prime Number Theorem. - Charles R Greathouse IV, Sep 23 2012

A225633 Number of steps to reach a fixed point (A003418(n)), when starting from partition {1+1+1+...+1} of n and continuing with the process described in A225632.

Original entry on oeis.org

0, 0, 1, 2, 2, 3, 3, 3, 3, 4, 4, 5, 5, 6, 5, 5, 5, 6, 6, 7, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 8, 9, 9, 9, 9, 9, 8, 9, 10, 10, 9, 10, 9, 11, 11, 11, 11, 12, 11, 12, 12, 12, 11, 12, 12, 12, 11, 11, 11, 12, 12, 13, 12, 12, 13, 13, 12, 13, 12, 12, 12, 13, 13, 14, 14
Offset: 0

Views

Author

Antti Karttunen, May 13 2013

Keywords

Comments

a(0)=0, as its only partition is an empty partition {}, and by convention lcm()=1, thus it takes no steps to reach from 1 to A003418(0)=1.
The records occur at positions 0, 2, 3, 5, 9, 11, 13, 19, 27, 31, 38, 43, 47, 61, 73, 81, ... and they seem to occur in order, i.e., as A001477. Thus the record-positions probably also give the left inverse function for this sequence. It also seems that each integer occurs only finite times in this sequence, so there should be a right inverse function as well.

Crossrefs

Formula

a(n) = A225634(n) - 1.

A279519 a(n) = A049502(A003418(n)).

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 9, 11, 14, 14, 23, 23, 42, 42, 42, 46, 79, 79, 48, 48, 48, 48, 95, 95, 125, 125, 180, 180, 182, 182, 307, 320, 320, 320, 320, 320, 365, 365, 365, 365, 390, 390, 451, 451, 451, 451, 360, 360, 564, 564, 564, 564, 582, 582, 582, 582, 582, 582, 745, 745, 804, 804, 804, 822, 822, 822, 866
Offset: 0

Views

Author

Indranil Ghosh, Dec 14 2016

Keywords

Examples

			For n=10, the LCM of all the numbers from 1 to 10 is 2520 = 100111011000_2, whose major index (2nd definition) is 14, so a(10)=14.
		

Crossrefs

Programs

  • Mathematica
    Map[Total@ SequencePosition[Reverse@ #, {1, 0}][[All, 1]] &@ IntegerDigits[#, 2] &, {1}~Join~Table[LCM @@ Range@ n, {n, 67}]] (* Michael De Vlieger, Dec 16 2016, Version 10.1 *)

A346418 a(n) is the exponent of the largest power of n that divides the least common multiple of {1,2,...,n} (A003418). a(1) = 1.

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, 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, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1
Offset: 1

Views

Author

Amiram Eldar, Jul 16 2021

Keywords

Examples

			a(2) = 1 since A003418(2) = 2, and 2^1|A003418(2).
a(30) = 2 since A003418(30) = 2329089562800 = 30^2 * 2587877292, and 30^2|A003418(30).
		

Crossrefs

Programs

  • Mathematica
    a[1] = 1; a[n_] := IntegerExponent[LCM @@ Range[n], n]; Array[a, 100]
  • PARI
    a(n) = if (n==1, 1, valuation(lcm([1..n]), n)); \\ Michel Marcus, Jul 17 2021

Formula

a(n) <= omega(n), and a(n) < omega(n) whenever omega(n) > 1.
Max_{k=2..n} a(k) ~ log(n)/(log(log(n)) + o(1)) (Erdős, 1992).

A067068 a(n) = n* - 2^n, where n* (A003418) = least common multiple of the numbers [1,...,n].

Original entry on oeis.org

-1, -2, -2, -4, 28, -4, 292, 584, 2008, 1496, 25672, 23624, 352168, 343976, 327592, 655184, 12121168, 11990096, 232268272, 231743984, 230695408, 228598256, 5345840272, 5337451664, 26737589968, 26704035536, 80179215472, 80044997744
Offset: 1

Views

Author

N. J. A. Sloane, Feb 17 2002

Keywords

Comments

It is known that this sequence is nonnegative for n >= 7. This can be established using the methods used to show A059794 is nonnegative. - Carl Pomerance, Bell Labs, Feb 16 2002

References

  • Tenenbaum, G. (2015). Introduction to analytic and probabilistic number theory, 3rd ed., American Mathematical Soc. See Theorem 1.5.

Crossrefs

Programs

  • Mathematica
    Table[LCM@@Range[n]-2^n,{n,30}] (* Harvey P. Dale, Sep 24 2022 *)

A095921 Intersection of A002182 (highly composite numbers) and A003418 (LCMs of first n positive integers).

Original entry on oeis.org

1, 2, 6, 12, 60, 840, 2520, 27720, 720720, 80313433200
Offset: 1

Views

Author

Matthew Vandermast, Jul 11 2004

Keywords

Comments

Also the intersection of A003418 and A007416.

References

  • J. Roberts, Lure Of The Integers. Math. Assoc. Of America, 1992, p. 86.

Crossrefs

Cf. A055492.

A100443 Inverse binomial transform of A003418.

Original entry on oeis.org

1, 0, 1, 2, -3, 44, -215, 1014, -3647, 11528, -35919, 135530, -597179, 2850132, -13623623, 60226334, -236639535, 832756304, -2732731487, 9035612658, -33172306739, 138937617020, -615393110199, 2649206536262, -10668440765663, 40078777939224, -142523015012975
Offset: 0

Views

Author

N. J. A. Sloane, Nov 21 2004

Keywords

Crossrefs

Cf. A003418.

Programs

  • Magma
    [(&+[(-1)^(n-k)*Binomial(n,k)*Lcm([1..k]): k in [0..n]]): n in [0..50]]; // G. C. Greubel, Apr 08 2023
    
  • Mathematica
    A100443[n_]:= (-1)^n +Sum[(-1)^(n-k)*Binomial[n, k]*Apply[LCM, Range[1, k]], {k,n}];
    Table[A100443[n], {n,0,50}] (* G. C. Greubel, Apr 08 2023 *)
  • SageMath
    def A100443(n): return sum((-1)^(n-k)*binomial(n,k)*lcm(range(1,k+1)) for k in range(n+1) )
    [A100443(n) for n in range(61)] # G. C. Greubel, Apr 08 2023

Formula

a(n) = Sum_{j=0..n} (-1)^(n-j)*binomial(n,j)*A003418(j). - G. C. Greubel, Apr 08 2023

A178981 2^A003418(n); for n >= 1, the least number > 1 that can be expressed simultaneously as a k-th power of some integer for all 1 <= k <= n.

Original entry on oeis.org

2, 2, 4, 64, 4096, 1152921504606846976, 1152921504606846976
Offset: 0

Views

Author

Rick L. Shepherd, Jan 02 2011

Keywords

Comments

Equivalently, for n >= 1, the least number > 1 of objects that can be arranged as a k-cube (k-dimensional hypercube) for all 1 <= k <= n.
a(7) = 2^420 contains 127 decimal digits.
From Jianing Song, Jul 20 2021: (Start)
Let F_q be the finite field with q elements, then F_a(n) is the smallest extension field of F_2 such that every polynomial of degree at most n splits into linear factors.
Union_{n>=0} F_a(n) is the algebraic clousre of F_2, which is the unique algebraically closed field with characteristic 2 and transcendence degree 0 (note that an algebraically closed field is uniquely determined by its characteristic and transcendence degree). Union_{n>=0} F_(2^(n!)) = Union_{n>=0} F_A050923(n) gives the same field.
Obviously, here 2 can be replaced by any prime p provided that {a(n)} is defined as a(n) = p^A003418(n). (End)

Examples

			a(6) = 2^A003418(6) = 2^60 = 1152921504606846976 [= (2^60)^1] = (2^30)^2 = 1073741824^2 = (2^20)^3 = 1048576^3 = (2^15)^4 = 32768^4 = (2^12)^5 = 4096^5 = (2^10)^6 = 1024^6, while no smaller integer > 1 can be expressed simultaneously as a square, cube, 4th, 5th, and 6th power of integers.
		

Crossrefs

Programs

  • PARI
    a(n)=2^(lcm(vector(n, i, i))) \\ Jianing Song, Jul 20 2021, following a PARI program for A003418
Previous Showing 21-30 of 378 results. Next