A374309 Integers m, with k digits, such that m = Sum_{i=1..k} A001065(m without its i-th digit).
17940, 159504, 1180140, 2607408, 3478008, 58039388, 111975864, 169084882, 382009288, 942525448, 2014102784, 4978124388, 7360873684
Offset: 1
Programs
-
Maple
with(numtheory): P:=proc(q) local a,d,k,i,n,t; for n from 1 to q do t:=0; a:=convert(n,base,10); for k from 1 to nops(a) do d:=0; for i from 1 to nops(a) do if i<> k then d:=d*10+a[-i]; fi; od; t:=sigma(d)-d+t; od; if n=t then print(n); fi; od; end: P(10^7)
Extensions
a(6)-a(13) by Giovanni Resta, Jul 06 2024