|
%I #17 Sep 08 2022 08:45:48
%S 199,289,298,379,388,397,469,478,487,496,559,568,577,586,595,649,658,
%T 667,676,685,694,739,748,757,766,775,784,793,829,838,847,856,865,874,
%U 883,892,919,928,937,946,955,964,973,982,991,1099,1189,1198,1279,1288
%N Numbers whose sum of digits is 19.
%C A007953(a(n)) = 19; number of repdigits = A242627(19) = 1. - _Reinhard Zumkeller_, Jul 17 2014
%H Vincenzo Librandi, <a href="/A166459/b166459.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[1500],Total[IntegerDigits[#]]==19&] (* _Harvey P. Dale_, Jul 19 2011 *)
%o (Magma) [n: n in [1..1500] | &+Intseq(n) eq 19]; // _Vincenzo Librandi_, Sep 13 2013
%o (Haskell)
%o a166459 n = a166459_list !! (n-1)
%o a166459_list = filter ((== 19) . a007953) [0..]
%o -- _Reinhard Zumkeller_, Jul 17 2014
%Y Cf. A011557 (1), A052216 (2), A052217 (3), A052218 (4), A052219 (5), A052220 (6), A052221 (7), A052222 (8), A052223 (9), A052224 (10), A166311 (11), A235151 (12), A143164 (13), A235225(14), A235226 (15), A235227 (16), A166370 (17), A235228 (18), A235229 (20).
%Y Cf. A242614, A242627.
%K nonn,base,easy
%O 1,1
%A _Vincenzo Librandi_, Oct 14 2009
|
