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