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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A061423 Sum of digits = 6 times number of digits. 19
 6, 39, 48, 57, 66, 75, 84, 93, 189, 198, 279, 288, 297, 369, 378, 387, 396, 459, 468, 477, 486, 495, 549, 558, 567, 576, 585, 594, 639, 648, 657, 666, 675, 684, 693, 729, 738, 747, 756, 765, 774, 783, 792, 819, 828, 837, 846, 855, 864, 873, 882, 891, 909 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 LINKS Harvey P. Dale, Table of n, a(n) for n = 1..1000 EXAMPLE 288 is a term as the arithmetic mean of the digits is (2+8+8)/3 = 6. MAPLE F:= proc(m, s) option remember; # list of all m-digit numbers with sum of digits s if s > 9*m or s < 0 then return [] fi; if m = 1 then return [s] fi; [seq(seq(op(map(`+`, procname(j, s-i), 10^(m-1)*i)), j=1..m-1), i=1..min(9, s))] end proc: seq(op(F(m, 6*m)), m=1..3); # Robert Israel, Jan 27 2016 MATHEMATICA Select[Range[1000], Total[IntegerDigits[#]]==6*IntegerLength[#]&] (* Harvey P. Dale, Dec 20 2014 *) PROG (PARI) isok(n) = {digs = digits(n, 10); return(6*#digs == sum(k=1, #digs, digs[k])); } \\ Michel Marcus, Jul 31 2013 (Magma) [n: n in [1..1000] | &+Intseq(n) eq 6*#Intseq(n)]; // Vincenzo Librandi, Jan 28 2016 CROSSREFS Cf. A061383, A061384, A061385, A061386, A061387, A061388, A061424, A061425. Sequence in context: A239983 A096674 A241258 * A080298 A253803 A355412 Adjacent sequences: A061420 A061421 A061422 * A061424 A061425 A061426 KEYWORD base,easy,nonn AUTHOR Amarnath Murthy, May 03 2001 EXTENSIONS More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001 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 January 29 00:02 EST 2023. Contains 359905 sequences. (Running on oeis4.)