The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A066228 The EulerPhi(sigma(EulerPhi))-perfect numbers, where the f-perfect numbers for an arithmetical function f are defined in A066218. 0
 2, 4, 28, 40, 448, 500380 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS There are no terms between 449 and 10^5. Are there any more terms? Are there infinitely many? No more terms below 10^9. - Amiram Eldar, Sep 26 2019 LINKS J. Pe, On a Generalization of Perfect Numbers, J. Rec. Math., 31(3) (2002-2003), 168-172. EXAMPLE Let f(n) = EulerPhi(sigma(EulerPhi(n)). Proper divisors of 28 = {1, 2, 4, 7, 14}; the sum of their f-values = 1+1+2+4+4 = 12 = f(28); hence 28 belongs to the sequence. MATHEMATICA f[x_] := EulerPhi[DivisorSigma[1, EulerPhi[x]]]; Select[ Range[ 1, 10^5], 2 * f[ # ] == Apply[ Plus, Map[ f, Divisors[ # ] ] ] & ] CROSSREFS Cf. A000010, A000203, A066218. Sequence in context: A305738 A323447 A227303 * A110881 A156449 A259375 Adjacent sequences:  A066225 A066226 A066227 * A066229 A066230 A066231 KEYWORD nonn,more AUTHOR Joseph L. Pe, Dec 18 2001 EXTENSIONS a(6) from Amiram Eldar, Sep 26 2019 STATUS approved

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

Last modified April 19 05:26 EDT 2021. Contains 343105 sequences. (Running on oeis4.)