A127049 Primes p such that denominator of Sum_{k=1..p-1} 1/k^6 is a sixth power.

2, 3, 5, 7, 17, 19, 41, 43, 47, 97, 127, 191, 193, 197, 199, 211, 223, 227, 229, 739, 743, 751, 757, 761, 769, 773, 787, 797, 809, 811, 991, 997, 1009, 1013, 1187, 1193, 1201, 3167, 3169, 3181, 3187, 3191, 3203, 3209, 3217, 3221, 3229, 3613, 3617, 3623, 3631

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^6; If[PrimeQ[i + 1] && IntegerQ[(Denominator[su])^(1/6)], AppendTo[a, i + 1]]]; a]; d[2000]
Select[Prime[Range[600]], IntegerQ[Surd[Denominator[Sum[1/k^6, {k, #-1}]], 6]]&] (* Harvey P. Dale, Aug 04 2019 *)

Crossrefs

Cf. A061002, A034602, A127029, A127042, A127043, A127044, A127046, A127047, A127048, A127049, A127051.

Sequence in context: A247147 A158085 A119833 * A142885 A108547 A319823

Adjacent sequences: A127046 A127047 A127048 * A127050 A127051 A127052

Keyword

nonn

Author

Artur Jasinski, Jan 03 2007, Jan 04 2007

Extensions

Edited by N. J. A. Sloane, Jul 03 2008 at the suggestion of R. J. Mathar

Status

approved