OFFSET
1,2
EXAMPLE
Largest term is 19, 1+9>19/2=9.5
MATHEMATICA
Select[Range@ 10^3, Total@ IntegerDigits@ # > #/2 &] (* Michael De Vlieger, Jul 23 2017 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Labos Elemer, Mar 18 2004
STATUS
approved