A127051 Primes p such that denominator of Sum_{k=1..p-1} 1/k^7 is a seventh power.

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

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

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: A140549 A275697 A127046 * A127045 A328514 A302491

Adjacent sequences: A127048 A127049 A127050 * A127052 A127053 A127054

Keyword

nonn

Author

Artur Jasinski, Jan 03 2007

Status

approved