|
|
A075863
|
|
Numbers k such that phi(phi(k)) = sum of prime factors of k.
|
|
0
|
|
|
8, 45, 55, 95, 126, 132, 198, 215, 228, 516, 2855, 6852, 7655, 18372, 276455, 663492
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
phi(phi(126)) = phi(36) = 12 and the sum of the prime factors of 126 = 2 * 3^2 * 7 is 2 + 3 + 7 = 12. Hence 126 belongs to the sequence.
|
|
MATHEMATICA
|
Select[Range[2, 10^5], EulerPhi[EulerPhi[ # ]] == Apply[Plus, Transpose[FactorInteger[ # ]][[1]]] &]
|
|
PROG
|
(Python)
from sympy import primefactors, totient as phi
def ok(n): return n and phi(phi(n)) == sum(primefactors(n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|