|
| |
|
|
A127049
|
|
Primes p such that denominator of Sum_{k=1..p-1} 1/k^6} is a sixth power.
|
|
5
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
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]
|
|
|
CROSSREFS
| Cf. A061002, A034602, A127029, A127042, A127043, A127044, A127046, A127047, A127048, A127049, A127051.
Sequence in context: A059498 A158085 A119833 * A142885 A108547 A116947
Adjacent sequences: A127046 A127047 A127048 * A127050 A127051 A127052
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007, Jan 04 2007
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Jul 03 2008 at the suggestion of R. J. Mathar
|
| |
|
|
