The OEIS mourns the passing of Jim Simons and is grateful to the Simons Foundation for its support of research in many branches of science, including the OEIS.
login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A063935 q(n) = sigma(n) - n, where q(n) = n + e(n) + e(n-e(n)) and e(n) = n - eulerphi(n). 0
300, 72504, 157344, 1470456, 3454944, 7438656, 8583168, 10097920, 32175072, 1519507968, 1699447296, 8450553312 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
MATHEMATICA
F[n_] := Abs[EulerPhi[n] - n]; Q[n_] := n+F[n]+F[n-F[n]]; Do[If[Q[n] == DivisorSigma[1, n] - n, Print[n]], {n, 10^9}] (* Ryan Propper, Jan 01 2007 *)
PROG
(PARI) e(n) = n - eulerphi(n);
q(n) = n+e(n)+e(n-e(n));
for(n=1, 10^8, if(q(n)==sigma(n)-n, print1(n, ", ")))
CROSSREFS
Cf. A051953 (n - eulerphi(n)).
Sequence in context: A036517 A223350 A190880 * A294687 A015275 A051306
KEYWORD
more,nonn
AUTHOR
Jason Earls, Aug 31 2001
EXTENSIONS
One more term from Ryan Propper, Jan 01 2007
a(10)-a(12) from Lars Blomberg, Oct 27 2015
Offset corrected by Altug Alkan, Oct 31 2015
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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 30 04:46 EDT 2024. Contains 372958 sequences. (Running on oeis4.)