OFFSET
1,1
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[1500], Total[IntegerDigits[#]]==19&] (* Harvey P. Dale, Jul 19 2011 *)
PROG
(Magma) [n: n in [1..1500] | &+Intseq(n) eq 19]; // Vincenzo Librandi, Sep 13 2013
(Haskell)
a166459 n = a166459_list !! (n-1)
a166459_list = filter ((== 19) . a007953) [0..]
-- Reinhard Zumkeller, Jul 17 2014
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Vincenzo Librandi, Oct 14 2009
STATUS
approved