|
Search: id:A127044
|
|
|
| A127044 |
|
Squares of denominators of Sum_{k=1..p-1} 1/k^2} for p in A127042. |
|
+0
6
|
|
| 1, 2, 12, 60, 720720, 12252240, 80313433200, 2329089562800, 144403552893600, 5342931457063200, 718766754945489455304472257065075294400, 52573842877942565273243107104095419458814459401768000
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
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: A082688 A099996 A099795 this_sequence A037562 A121177 A125831
Adjacent sequences: A127041 A127042 A127043 this_sequence A127045 A127046 A127047
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
