OFFSET
1,1
LINKS
Paolo P. Lava, Table of n, a(n) for n = 1..10000
EXAMPLE
n=344 and 3+4+4=11; n’=524 and 5+2+4=11.
MAPLE
with(numtheory);
A213240:=proc(q)
local a, b, d, n, p, pfs;
for n from 1 to q do
pfs:=ifactors(n)[2]; a:=n*add(op(2, p)/op(1, p), p=pfs); b:=0;
while a>0 do b:=b+(a mod 10); a:=trunc(a/10); od;
a:=n; d:=0; while a>0 do d:=d+(a mod 10); a:=trunc(a/10); od;
if b=d then print(n); fi;
od; end:
A213240(100000000);
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paolo P. Lava, Jun 07 2012
STATUS
approved