|
Search: id:A101993
|
|
|
| A101993 |
|
Indices n for which the numerator of Sum( (-1)^i/(i * phi(i)) ) 2<=i<=n is a prime number. |
|
+0
1
|
|
| 4, 6, 7, 9, 10, 13, 16, 21, 27, 35, 39, 41, 45, 48, 52, 76, 84, 94, 119, 150, 165, 190, 251, 260, 264, 306, 416, 428, 488, 513, 521, 523, 553, 615, 622, 640, 711, 714, 765, 797, 807, 888, 967, 1146, 1292
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(1) = 4 because numerator of Sum((-1)^i/(i * phi(i))) is 11, and 11 is a prime number.
|
|
MATHEMATICA
|
Defining the sum: f[n_Integer] /; n >= 2 := Sum[(-1)^(i)/(i EulerPhi[i]), {i, 2, n}] Generating the sequence: PhiPrimes[n_Integer] /; n ≥ 2 := Flatten[Table[If[PrimeQ[Numerator[f[i]]], i, {}], {i, 2, n}]] Checking if a given n is a phi-prime: PhiPrimeQ[n_Integer] /; n ≥ 2 := If[PrimeQ[ Numerator[f[n]]], Numerator[f[n]], "not a phi-prime"]
Select[Range[2, 1300], PrimeQ[Numerator[Sum[(-1)^i/(i*EulerPhi[i]), {i, 2, #}]]] &] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 02 2006
|
|
CROSSREFS
|
Cf. Euler's totient function phi(n) : A000010 The sequence of the numerator of the sum : A101992.
Sequence in context: A104425 A080746 A069909 this_sequence A002481 A085817 A047508
Adjacent sequences: A101990 A101991 A101992 this_sequence A101994 A101995 A101996
|
|
KEYWORD
|
more,nonn
|
|
AUTHOR
|
Orges Leka (oleka(AT)students.uni-mainz.de), Dec 23 2004
|
|
EXTENSIONS
|
More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), Apr 02 2006
|
|
|
Search completed in 0.002 seconds
|
