login
A372753
Integers m, with k digits, such that m = Sum_{i=1..k} A066417(m without its i-th digit).
3
1528, 2970, 19486, 26062, 27670, 37898, 144186, 290814, 331884, 442598, 1010400, 2758596, 4046432, 4270842, 5518368, 5805182, 6826434, 7231218
OFFSET
1,1
MAPLE
with(numtheory): P:=proc(q) local a, b, d, i, j, k, n, t;
for n from 1 to q do t:=0; a:=convert(n, base, 10);
for b from 1 to nops(a) do d:=0;
for i from 1 to nops(a) do if i<>b then d:=d*10+a[-i]; fi; od; k:=0; j:=d;
if d>0 then while j mod 2<>1 do k:=k+1; j:=j/2; od;
t:=sigma(2*d+1)+sigma(2*d-1)+sigma(d/2^k)*2^(k+1)-6*d-2+t; fi; od;
if n=t then print(n); fi; od; end: P(10^8);
CROSSREFS
Cf. A066417, A374308, A374309, 374368.
Sequence in context: A236880 A226700 A226701 * A235170 A252414 A333721
KEYWORD
nonn,base,more
AUTHOR
Paolo P. Lava, Jul 28 2024
STATUS
approved