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

Author

Artur Jasinski, Jan 03 2007

Keywords

• nonn

Links

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

Crossrefs

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

Programs

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