OFFSET
1,2
EXAMPLE
The digits of phi(3465)^sigma(3465) sum to 72765 and 72765 is divisible by 3465, so 3465 is in the sequence.
MATHEMATICA
Do[s = EulerPhi[n]^DivisorSigma[1, n]; k = Plus @@ IntegerDigits[s]; If[Mod[k, n] == 0, Print[n]], {n, 1, 10^4}]
Select[Range[50000], Divisible[Total[IntegerDigits[EulerPhi[#]^ DivisorSigma[1, #]]], #]&] (* Harvey P. Dale, Mar 19 2011 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Ryan Propper, Aug 06 2005
EXTENSIONS
More terms from Harvey P. Dale, Mar 19 2011
a(22)-a(29) from Lars Blomberg, Dec 02 2016
STATUS
approved