login
a(n) = smallest multiple of 4 with sum of digits = n.
1

%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