OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..5000
MATHEMATICA
Select[Range[2000], ! PrimeQ[#] && Total[IntegerDigits[#]] == 19 &] (* T. D. Noe, Oct 04 2013 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jahangeer Kholdi, Oct 03 2013
STATUS
approved