OFFSET
1,2
EXAMPLE
Largest term is 29, 2+9>29/3=9.66
MATHEMATICA
Select[Range[100], Total[IntegerDigits[#]]>=#/3&] (* Harvey P. Dale, Mar 10 2013 *)
CROSSREFS
KEYWORD
base,nonn,fini,full
AUTHOR
Labos Elemer, Mar 18 2004
STATUS
approved