The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A369685

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A369685

Least common multiple of the first n terms of A359804.
(history; published version)

#13 by OEIS Server at Sat Feb 03 10:12:21 EST 2024

LINKS

Michael De Vlieger, <a href="/A369685/b369685_1.txt">Table of n, a(n) for n = 0..6187</a>

#12 by Michael De Vlieger at Sat Feb 03 10:12:21 EST 2024

STATUS

reviewed

approved

Discussion

Sat Feb 03

10:12

OEIS Server: Installed first b-file as b369685.txt.

#11 by Kevin Ryde at Sat Feb 03 02:32:37 EST 2024

STATUS

proposed

reviewed

#10 by Kevin Ryde at Sat Feb 03 02:32:21 EST 2024

STATUS

editing

proposed

#9 by Kevin Ryde at Sat Feb 03 02:32:04 EST 2024

KEYWORD

nonn,more,changed

STATUS

proposed

editing

#8 by David James Sycamore at Thu Feb 01 10:24:43 EST 2024

STATUS

editing

proposed

#7 by Michael De Vlieger at Mon Jan 29 23:11:35 EST 2024

MATHEMATICA

nn = 40; c[_] = False; q[_] = 1;

Array[Set[{a[#], c[#]}, {1, True}] &, 2];

Set[{i, j}, {1, 2}]; m = 2; u = 3;

Do[

(k = q[#]; While[c[k #], k++]; k *= #; While[c[# q[#]], q[#]++]) &[

(p = 2; While[Divisible[i j, p], p = NextPrime[p]]; p)];

Set[{a[n], c[k], i, j, m}, {m, True, j, k, #}] &[LCM[m, k]];

If[k == u, While[c[u], u++]], {n, 3, nn}];

Array[a, nn] (* Michael De Vlieger, Jan 29 2024 *)

#6 by Michael De Vlieger at Mon Jan 29 23:09:47 EST 2024

LINKS

Michael De Vlieger, <a href="/A369685/b369685_1.txt">Table of n, a(n) for n = 0..6187</a>

#5 by Michael De Vlieger at Mon Jan 29 23:09:30 EST 2024

DATA

1, 1, 2, 6, 30, 60, 60, 60, 420, 1260, 2520, 2520, 2520, 27720, 27720, 27720, 27720, 27720, 138600, 138600, 138600, 138600, 138600, 138600, 277200, 277200, 277200, 277200, 277200, 277200, 1940400, 25225200, 75675600, 75675600, 75675600, 75675600, 75675600, 75675600, 151351200, 151351200, 151351200, 15135200, 15135200, 15135200

#4 by David James Sycamore at Mon Jan 29 05:34:18 EST 2024

DATA