OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
141 is a term as the arithmetic mean of the digits is (1+4+1)/3 = 2.
MAPLE
S:= proc(d, k, flag) option remember;
if d = 1 then
if k >= 0 and k <= 9 then return [k]
else return []
fi
fi;
[seq(op(map(`+`, procname(d-1, k-i, 0), i*10^(d-1))), i=flag..min(k, 9))]
end proc:
seq(op(S(d, 2*d, 1)), d=1..5); # Robert Israel, Apr 23 2017
PROG
(Magma) [ n: n in [1..1310] | &+Intseq(n) eq 2*#Intseq(n) ]; // Bruno Berselli, Jun 30 2011
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, May 03 2001
EXTENSIONS
More terms from Larry Reeves (larryr(AT)acm.org), May 16 2001
STATUS
approved