A127048 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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