A308260 a(n) = Product_{k=1..n, gcd(n,k) = 1} prime(k).

1, 2, 2, 6, 10, 210, 22, 30030, 1870, 149226, 3910, 6469693230, 11594, 7420738134810, 3215630, 741422598, 2569288370, 32589158477190044730, 28045886, 117288381359406970983270, 19644868330, 4812825965463978, 23916676633630, 3217644767340672907899084554130

Offset

0,2

Links

Table of n, a(n) for n=0..23.

Formula

A001221(a(n)) = A000010(n).

a(A000040(n)) = A002110(A006093(n)).

Mathematica

a[n_] := Product[If[GCD[n, k] == 1, Prime[k], 1], {k, 1, n}]; Table[a[n], {n, 0, 23}]

Crossrefs

Cf. A000010, A000040, A001221, A001783, A002110, A005117, A006093, A127413.

Sequence in context: A103774 A036052 A355207 * A279212 A377978 A299018

Adjacent sequences: A308257 A308258 A308259 * A308261 A308262 A308263

Keyword

nonn

Author

Ilya Gutkovskiy, May 30 2019

Status

approved