1,2
Table of n, a(n) for n=1..8.
Do[If[Mod[DivisorSigma[1, n]-DivisorSigma[0, n]+EulerPhi[n], n]==0, Print[n]], {n, 1, 10^7}]
Sequence in context: A113094 A076113 A182335 * A007257 A045487 A022376
Adjacent sequences: A056010 A056011 A056012 * A056014 A056015 A056016
nonn
Robert G. Wilson v, Jul 24 2000
a(6)-a(8) from Donovan Johnson, Nov 12 2012
approved