|
Search: id:A127049
|
|
|
| A127049 |
|
Primes p such that denominator of Sum_{k=1..p-1} 1/k^6} is a sixth power. |
|
+0
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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
MAPLE
|
d[n_] := Module[{}, su = 0; a = {}; For[i = 1, i <= n, i++, su = su + 1/ i^6; If[PrimeQ[i + 1], If[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: A061248 A059498 A119833 this_sequence A108547 A116947 A066277
Adjacent sequences: A127046 A127047 A127048 this_sequence A127050 A127051 A127052
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Artur Jasinski (grafix(AT)csl.pl), Jan 03 2007, Jan 04 2007
|
|
EXTENSIONS
|
Edited by njas, Jul 03 2008 at the suggestion of R. J. Mathar
|
|
|
Search completed in 0.002 seconds
|
