This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A374368 #15 Jun 02 2025 15:27:51 %S A374368 42080,150922,301280,945688,1014004,4962140 %N A374368 Integers m, with k digits, such that m = Sum_{i=1..k} A003415(m without its i-th digit). %p A374368 with(numtheory): P:=proc(q) local a,d,i,k,n,p,t; %p A374368 for n from 1 to q do t:=0; a:=convert(n,base,10); for k from 1 to nops(a) do %p A374368 d:=0; for i from 1 to nops(a) do if i<> k then d:=d*10+a[-i]; fi; od; %p A374368 t:=d*add(op(2, p)/op(1, p),p=ifactors(d)[2])+t; od; %p A374368 if n=t then print(n); fi; od; end: P(10^7); %Y A374368 Cf. A372753, A374308, A374309. %K A374368 nonn,base,more %O A374368 1,1 %A A374368 _Paolo P. Lava_, Jul 06 2024