|
%I #7 Jun 17 2021 16:49:14
%S 100,20,12,4,32,24,16,8,36,28,56,48,76,68,96,88,188,288,388,488,588,
%T 688,788,888,988,1988,2988,3988,4988,5988,6988,7988,8988,9988,19988,
%U 29988,39988,49988,59988,69988,79988,89988,99988,199988,299988,399988,499988
%N a(n) = smallest multiple of 4 with sum of digits = n.
%t With[{d4=Sort[{Total[IntegerDigits[#]],#}&/@(4Range[250000])]},Table[ SelectFirst[ d4,#[[1]]==n&],{n,50}]][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 17 2021 *)
%Y Cf. A077490, A069532, A069534.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 07 2002
%E More terms from _Ray Chandler_, Aug 03 2003
|
