%I #15 Feb 14 2014 07:48:37
%S 11,13,14,16,17,19,23,25,29,31,32,34,35,37,38,41,43,47,49,52,53,56,58,
%T 59,61,65,67,71,73,74,76,79,83,85,89,91,92,94,95,97,98,101,103,104,
%U 106,107,109,113,115,119,121,122,124,125,127,128,131,137,139,142,143,146,148,149,151,155,157
%N Numbers other than powers of 10 that are coprime to the sum of their digits.
%t cpQ[n_]:=Module[{td=Total[IntegerDigits[n]]},td>1&&CoprimeQ[td,n]]; Select[Range[160],cpQ] (* _Harvey P. Dale_, Jun 11 2011 *)
%Y Cf. A005349.
%K easy,nonn,base
%O 1,1
%A _Felice Russo_
%E Corrected and extended by _Olivier GĂ©rard_
|