|
Search: id:A127051
|
|
|
| A127051 |
|
Primes p such that denominator of Sum_{k=1..p-1} 1/k^7} is a seventh power. |
|
+0
7
|
|
| 2, 3, 5, 11, 13, 17, 29, 31, 37, 41, 83, 131, 251, 257, 263, 269, 271, 293, 419, 421, 479, 1163, 1171, 1181, 2411, 2417, 2423, 2437, 2441, 2447, 2459, 2467, 2473, 2477, 3137, 3163, 3167, 3169, 3533, 3539, 3541, 3547, 3557, 3559, 3571, 3581, 3583, 3593, 3607
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
d[n_] := Module[{}, su = 0; a = {}; For[i = 1, i <= n, i++, su = su + 1/ i^7; If[PrimeQ[i + 1], If[IntegerQ[(Denominator[su])^(1/7)], AppendTo[a, i + 1]]]]; a] d[2000]
|
|
CROSSREFS
|
Cf. A061002, A034602, A127029, A127042, A127046, A127047, A127048.
Sequence in context: A095315 A040044 A127046 this_sequence A127045 A141830 A127048
Adjacent sequences: A127048 A127049 A127050 this_sequence A127052 A127053 A127054
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007
|
|
|
Search completed in 0.002 seconds
|
