OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..1000
EXAMPLE
From Reinhard Zumkeller, May 28 2010: (Start)
1093 --> 1+0+9+3=13 --> A010888(1093) = 1+3 = 4 and also
1093 --> 1+0+9+3=13 --> A004427(1093) = ceiling(13/4) = 4,
therefore 1093 is a term: a(100) = 1093. (End)
MAPLE
A178404 := proc(n) option remember: local k: if(n=1)then return 0: fi: k:=procname(n-1)+1: do if(ceil(add(d, d=convert(k, base, 10))/length(k))-1 = (k-1) mod 9)then return k: fi: k:=k+1: od: end: seq(A178404(n), n=1..57); # Nathaniel Johnston, May 04 2011
MATHEMATICA
amdrQ[n_]:=NestWhile[Total[IntegerDigits[#]]&, n, #>9&]==Ceiling[ Mean[ IntegerDigits[n]]]; Select[Range[0, 1000], amdrQ] (* Harvey P. Dale, Oct 10 2013 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Reinhard Zumkeller, May 27 2010
STATUS
approved