1,2
Do[If[Mod[DivisorSigma[1, n]+DivisorSigma[0, n]+EulerPhi[n], n]==0, Print[n]], {n, 1, 10^7}]
Sequence in context: A066220 A009257 A098757 this_sequence A066719 A033319 A090315
Adjacent sequences: A056009 A056010 A056011 this_sequence A056013 A056014 A056015
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 24 2000
Search completed in 0.002 seconds