The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A119619

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

A119619

a(n) = Product_{i=1..n} i / gcd(i,n).
(history; published version)

#21 by Charles R Greathouse IV at Thu Sep 08 08:45:25 EDT 2022

PROG

(MAGMAMagma) [&*[&*[h: h in [1..d] | GCD(h, d) eq 1]: d in Divisors(n)]: n in [1..100]]; // Jaroslav Krizek, Dec 28 2016

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#20 by Andrew Howroyd at Sat Nov 20 11:30:27 EST 2021

STATUS

reviewed

approved

#19 by Michel Marcus at Sat Nov 20 03:41:44 EST 2021

STATUS

proposed

reviewed

#18 by Ridouane Oudra at Sat Nov 20 03:37:44 EST 2021

STATUS

editing

proposed

#17 by Ridouane Oudra at Sat Nov 20 03:36:40 EST 2021

FORMULA

a(n) = A000142(n)/A067911(n). - Ridouane Oudra, Nov 20 2021

CROSSREFS

Cf. A000142, A067911.

STATUS

approved

editing

#16 by N. J. A. Sloane at Thu Dec 29 05:24:05 EST 2016

STATUS

proposed

approved

#15 by Michel Marcus at Wed Dec 28 15:22:38 EST 2016

STATUS

editing

proposed

#14 by Michel Marcus at Wed Dec 28 15:22:23 EST 2016

NAME

a(n) = Product of _{i=1..n} i / gcd(i,n) for i=1..n.

PROG

(MAGMA) [&*[&*[h: h in [1..d] | GCD(h, d) eq 1]: d in Divisors(n)]: n in [1..100]]; _// _Jaroslav Krizek_, Dec 28 2016

STATUS

proposed

editing

#13 by Michael De Vlieger at Wed Dec 28 14:39:24 EST 2016

STATUS

editing

proposed

#12 by Michael De Vlieger at Wed Dec 28 14:39:22 EST 2016

MATHEMATICA

Table[Product[Times @@ Select[Range@ d, CoprimeQ[#, d] &], {d, Divisors@ n}], {n, 23}] (* Michael De Vlieger, Dec 28 2016 *)

STATUS

proposed

editing