OFFSET
1,1
EXAMPLE
sum_aliquot_parts(22991) = 361 and sum_aliquot_parts(2299) = 361.
MAPLE
with(numtheory): P:=proc(q) local n, p, x; for n from 2 to q do
if not isprime(n) then x:=trunc(n/10); if sigma(n)-n=sigma(x)-x then print(n); fi; fi; od; end: P(10^6);
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
Paolo P. Lava, Oct 10 2017
STATUS
approved