cp's OEIS Frontend

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

%I A372753 #14 Jul 28 2024 17:02:57
%S A372753 1528,2970,19486,26062,27670,37898,144186,290814,331884,442598,
%T A372753 1010400,2758596,4046432,4270842,5518368,5805182,6826434,7231218
%N A372753 Integers m, with k digits, such that m = Sum_{i=1..k} A066417(m without its i-th digit).
%p A372753 with(numtheory): P:=proc(q) local a,b,d,i,j,k,n,t;
%p A372753 for n from 1 to q do t:=0; a:=convert(n,base,10);
%p A372753 for b from 1 to nops(a) do d:=0;
%p A372753 for i from 1 to nops(a) do if i<>b then d:=d*10+a[-i]; fi; od; k:=0; j:=d;
%p A372753 if d>0 then while j mod 2<>1 do k:=k+1; j:=j/2; od;
%p A372753 t:=sigma(2*d+1)+sigma(2*d-1)+sigma(d/2^k)*2^(k+1)-6*d-2+t; fi; od;
%p A372753 if n=t then print(n); fi; od; end: P(10^8);
%Y A372753 Cf. A066417, A374308, A374309, 374368.
%K A372753 nonn,base,more
%O A372753 1,1
%A A372753 _Paolo P. Lava_, Jul 28 2024