OFFSET
1,5
COMMENTS
According to Koninck (2009), a(8) is the largest value of this sequence known to be 1 (meaning that the product is an integer). [Alonso del Arte, Aug 23 2011]
REFERENCES
R. K. Guy, Unsolved Problems in Number Theory, B48.
J.-M. De Koninck, Those Fascinating Numbers, Amer. Math. Soc., 2009, p. 6.
LINKS
Robert Israel, Table of n, a(n) for n = 1..1703
F. Smarandache, Only Problems, Not Solutions!.
MAPLE
Q:= 1: p:= 1:
for n from 1 to 100 do
p:= nextprime(p);
Q:= Q * (p+1)/(p-1);
A[n]:= denom(Q);
od: seq(A[i], i=1..100); #
MATHEMATICA
Denominator[Table[Product[(Prime[i] + 1)/(Prime[i] - 1), {i, n}], {n, 30}]] (* Alonso del Arte, Aug 23 2011 *)
PROG
(PARI) a(n) = denominator(prod(i=1, n, (prime(i)+1)/(prime(i)-1))); \\ Michel Marcus, May 11 2018
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Labos Elemer, Dec 06 2002
EXTENSIONS
Improved definition from Franklin T. Adams-Watters, Dec 02 2005
STATUS
approved