The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A076531 Numbers n such that sopf(phi(n)) = phi(sopf(n)), where sopf(x) = sum of the distinct prime factors of x. 8
 3, 203, 322, 377, 644, 851, 931, 1166, 1211, 1288, 1421, 1666, 1815, 1862, 2332, 2576, 3332, 3724, 4664, 4830, 5152, 6401, 6517, 6664, 7042, 7241, 7448, 9075, 9328, 9555, 9660, 9845, 9922, 9947, 10304, 10465, 11662, 11814, 11830, 12558, 12903, 13034 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Amiram Eldar, Table of n, a(n) for n = 1..10000 EXAMPLE sopf(phi(203)) = sopf(168) = 12; phi(sopf(203)) = phi(36) = 12 hence 203 is a term of the sequence. MATHEMATICA p[n_] := Apply[Plus, Transpose[FactorInteger[n]][[1]]]; Select[Range[3, 10^4], p[EulerPhi[ # ]] == EulerPhi[ p[ # ]] &] PROG (PARI) sopf(n) = my(f=factor(n)); sum(j=1, #f~, f[j, 1]); \\ A008472 isok(n) = eulerphi(sopf(n)) == sopf(eulerphi(n)); \\ Michel Marcus, Oct 04 2019 CROSSREFS Cf. A008472, A075565, A075784, A075846, A076525, A076527, A076532, A076533. Sequence in context: A229602 A080297 A080274 * A269552 A038789 A212997 Adjacent sequences: A076528 A076529 A076530 * A076532 A076533 A076534 KEYWORD nonn AUTHOR Joseph L. Pe, Oct 18 2002 EXTENSIONS Edited and extended by Ray Chandler, Feb 13 2005 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified February 21 06:16 EST 2024. Contains 370219 sequences. (Running on oeis4.)