A127048 Primes p such that denominator of Sum_{k=1..p-1} 1/k^5 is a fifth power.

2, 3, 5, 11, 13, 17, 37, 41, 53, 83, 127, 131, 137, 139, 149, 151, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 733, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 853, 857, 859, 863, 877, 881, 883, 887, 929, 967, 1091, 1093, 1097, 1103, 1109, 1151

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^5; If[PrimeQ[i + 1], If[IntegerQ[(Denominator[su])^(1/5)], AppendTo[a, i + 1]]]]; a]; d[2000]

Crossrefs

Cf. A061002, A034602, A127029, A127042, A127046, A127047.

Sequence in context: A328514 A302491 A141830 * A215370 A139053 A184859

Adjacent sequences: A127045 A127046 A127047 * A127049 A127050 A127051

Keyword

nonn

Author

Artur Jasinski, Jan 03 2007

Status

approved