A127044 Squares of denominators of Sum_{k=1..p-1} 1/k^2 for p in A127042.

1, 2, 12, 60, 720720, 12252240, 80313433200, 2329089562800, 144403552893600, 5342931457063200, 718766754945489455304472257065075294400, 52573842877942565273243107104095419458814459401768000

Offset

1,2

Links

Amiram Eldar, Table of n, a(n) for n = 1..65

Mathematica

a = {}; Do[If[Sqrt[Denominator[Sum[1/x^2, {x, 1, Prime[x] - 1}]]] == Floor[Sqrt[Denominator[Sum[1/x^2, {x, 1, Prime[x] - 1}]]]], AppendTo[a, Sqrt[Denominator[Sum[1/x^2, {x, 1, Prime[x] - 1}]]]]], {x, 1, 50}]; a

Crossrefs

Cf. A061002, A034602, A127029, A127042, A127043.

Sequence in context: A352881 A099795 A358448 * A245091 A037562 A321277

Adjacent sequences: A127041 A127042 A127043 * A127045 A127046 A127047

Keyword

nonn

Author

Artur Jasinski, Jan 03 2007

Status

approved