A056012 Numbers n such that n | Sigma(n) + d(n) + Phi(n).

1, 2, 4, 6, 90, 408, 5856, 2200352, 11524640, 90200997888

Offset

1,2

Links

Table of n, a(n) for n=1..10.

Mathematica

Do[If[Mod[DivisorSigma[1, n]+DivisorSigma[0, n]+EulerPhi[n], n]==0, Print[n]], {n, 1, 10^7}]

Crossrefs

Sequence in context: A009257 A098757 A335709 * A259050 A066719 A345269

Adjacent sequences: A056009 A056010 A056011 * A056013 A056014 A056015

Keyword

nonn

Author

Robert G. Wilson v, Jul 24 2000

Extensions

a(7) corrected and a(10) added by Donovan Johnson, Nov 12 2012

Status

approved