|
%I #15 Jun 15 2018 20:56:48
%S 888,1896,1968,2688,2976,3696,3768,3984,4488,4776,4848,4992,5496,5568,
%T 5784,5856,5928,6288,6576,6648,6792,6864,6936,7296,7368,7584,7656,
%U 7728,7872,7944,8088,8376,8448,8592,8664,8736,8808,8880,8952,9096,9168,9384
%N Multiples of 24 whose digits also sum to 24.
%D David Wells, The Penguin Dictionary of Curious and Interesting Numbers, p. 149 (Rev. ed. 1997).
%H Harry J. Smith, <a href="/A066270/b066270.txt">Table of n, a(n) for n = 1..1000</a>
%e 6288 is included because it is divisible by 24 and its digits sum to 24.
%t Select[24*Range[400],Total[IntegerDigits[#]]==24&] (* _Harvey P. Dale_, Nov 19 2014 *)
%o (PARI) SumD(x)= { local(s=0); while (x>9, s+=x%10; x\=10); return(s + x) } { n=0; forstep (m=24, 10^9, 24, if (SumD(m) == 24, write("b066270.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Feb 08 2010
%K nonn,base
%O 1,1
%A _Harvey P. Dale_, Jan 01 2002
%E Offset changed from 0 to 1 by _Harry J. Smith_, Feb 08 2010
|
