# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a055703
Showing 1-1 of 1

%I A055703 #10 Mar 02 2014 12:35:51
%S A055703 1,2,12,54,76,90,216,423,514,531,621,2166,2241,2772,2976,4752,5154,
%T A055703 5400,5481,6264,7290,7344,9018,9144,9470,9555,14094,14904,19494,21222,
%U A055703 23780,25848,28323,34830,34911,38220,40122,48768,49079,55782,59400
%N A055703 Numbers n such that n | sigma_9(n) - phi(n)^9.
%C A055703 sigma_9(n) is the sum of the 9th powers of the divisors of n (A013957).
%t A055703 Do[If[Mod[DivisorSigma[9, n]-EulerPhi[n]^9, n]==0, Print[n]], {n, 1, 10^5}]
%o A055703 (PARI) isok(n) = !((sigma(n, 9) - eulerphi(n)^9) % n); \\ _Michel Marcus_, Mar 02 2014
%K A055703 nonn
%O A055703 1,2
%A A055703 _Robert G. Wilson v_, Jun 09 2000
%E A055703 Definition corrected by _Michel Marcus_, Mar 02 2014

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE