The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A178404 Numbers such that the rounded up arithmetic mean of their digits equals their digital root. 3
 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 99, 100, 149, 158, 167, 176, 185, 194, 239, 248, 257, 266, 275, 284, 293, 329, 338, 347, 356, 365, 374, 383, 392, 419, 428, 437, 446, 455, 464, 473, 482, 491, 509, 518, 527, 536, 545, 554, 563, 572, 581, 590, 608, 617, 626, 635 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,3 COMMENTS A004427(a(n)) = A010888(a(n)); complement of A178405. 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 Cf. A004427, A010888, A178405. Sequence in context: A161948 A258785 A004861 * A055649 A111705 A071274 Adjacent sequences: A178401 A178402 A178403 * A178405 A178406 A178407 KEYWORD base,easy,nonn AUTHOR Reinhard Zumkeller, May 27 2010 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 3 20:04 EDT 2023. Contains 365870 sequences. (Running on oeis4.)