|
|
A127044
|
|
Squares of denominators of Sum_{k=1..p-1} 1/k^2 for p in A127042.
|
|
6
|
|
|
1, 2, 12, 60, 720720, 12252240, 80313433200, 2329089562800, 144403552893600, 5342931457063200, 718766754945489455304472257065075294400, 52573842877942565273243107104095419458814459401768000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|