OFFSET
0,3
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 0..10000
EXAMPLE
MAPLE
ader:= proc(n) local t;
n * add(t[2]/t[1], t = ifactors(n)[2])
end proc:
f:= proc(n) option remember; local t;
t:= ader(n);
if t < n then procname(t)+1 else 0 fi
end proc:
map(f, [$0..1000]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Israel, May 28 2023
STATUS
approved