login
Integers m, with k digits, such that m = Sum_{i=1..k} A003415(m without its i-th digit)
2

%I #13 Jul 28 2024 00:11:32

%S 42080,150922,301280,945688,1014004,4962140

%N Integers m, with k digits, such that m = Sum_{i=1..k} A003415(m without its i-th digit)

%p with(numtheory): P:=proc(q) local a,d,i,k,n,p,t;

%p for n from 1 to q do t:=0; a:=convert(n,base,10); for k from 1 to nops(a) do

%p d:=0; for i from 1 to nops(a) do if i<> k then d:=d*10+a[-i]; fi; od;

%p t:=d*add(op(2, p)/op(1, p),p=ifactors(d)[2])+t; od;

%p if n=t then print(n); fi; od; end: P(10^7);

%Y Cf. A372753, A374308, A374309.

%K nonn,base,more

%O 1,1

%A _Paolo P. Lava_, Jul 06 2024