login
Multiples of 24 whose digits also sum to 24.
1

%I #18 Aug 17 2024 15:04:44

%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) }

%o { 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