A061424 - OEIS

%I #14 Oct 22 2022 16:54:22

%S 7,59,68,77,86,95,399,489,498,579,588,597,669,678,687,696,759,768,777,

%T 786,795,849,858,867,876,885,894,939,948,957,966,975,984,993,1999,

%U 2899,2989,2998,3799,3889,3898,3979,3988,3997,4699,4789,4798,4879,4888,4897

%N Sum of digits = 7 times number of digits.

%H Robert Israel, <a href="/A061424/b061424.txt">Table of n, a(n) for n = 1..10000</a>

%e 498 is a term as the arithmetic mean of the digits is (4+9+8)/3 = 7.

%p filter:= proc(n) local L;

%p   L:= convert(n,base,10);

%p   convert(L,`+`)=nops(L)*7

%p end proc:

%p select(filter, [$1..10000]); # _Robert Israel_, Dec 07 2020

%t Select[Range[5000],Total[IntegerDigits[#]]==7IntegerLength[#]&] (* _Harvey P. Dale_, Oct 22 2022 *)

%Y Cf. A061383-A061388, A061423-A061425.

%K nonn,base,easy

%O 1,1

%A _Amarnath Murthy_, May 03 2001

%E More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001

%E Offset changed by _Robert Israel_, Dec 07 2020