A127044 - OEIS

%I #5 Mar 25 2020 06:51:06

%S 1,2,12,60,720720,12252240,80313433200,2329089562800,144403552893600,

%T 5342931457063200,718766754945489455304472257065075294400,

%U 52573842877942565273243107104095419458814459401768000

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

%H Amiram Eldar, <a href="/A127044/b127044.txt">Table of n, a(n) for n = 1..65</a>

%t 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

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

%K nonn

%O 1,2

%A _Artur Jasinski_, Jan 03 2007