|
Search: id:A127042
|
|
|
| A127042 |
|
Primes p such that denominator of Sum_{k=1..p-1} 1/k^2} is a square. |
|
+0
13
|
|
| 2, 3, 5, 7, 17, 19, 29, 31, 37, 41, 97, 127, 131, 211, 223, 227, 229
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
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, Prime[x]]], {x, 1, 50}]; a
|
|
CROSSREFS
|
Cf. A061002, A034602, A127029.
Sequence in context: A089968 A113029 A090432 this_sequence A069802 A067954 A061248
Adjacent sequences: A127039 A127040 A127041 this_sequence A127043 A127044 A127045
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
