cp's OEIS Frontend

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

%I A374309 #17 Jul 28 2024 00:10:59
%S A374309 17940,159504,1180140,2607408,3478008,58039388,111975864,169084882,
%T A374309 382009288,942525448,2014102784,4978124388,7360873684
%N A374309 Integers m, with k digits, such that m = Sum_{i=1..k} A001065(m without its i-th digit).
%p A374309 with(numtheory): P:=proc(q) local a,d,k,i,n,t;
%p A374309 for n from 1 to q do t:=0; a:=convert(n,base,10);
%p A374309 for k from 1 to nops(a) do d:=0; for i from 1 to nops(a) do
%p A374309 if i<> k then d:=d*10+a[-i]; fi; od; t:=sigma(d)-d+t; od;
%p A374309 if n=t then print(n); fi; od; end: P(10^7)
%Y A374309 Cf. A001065, A372753, A374308, A374368.
%K A374309 nonn,base,more
%O A374309 1,1
%A A374309 _Paolo P. Lava_, Jul 03 2024
%E A374309 a(6)-a(13) by _Giovanni Resta_, Jul 06 2024