OFFSET
1,14
COMMENTS
a(n) is the number of k such that k + A001414(k) = n.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
MAPLE
f:= proc(n) local t; add(t[1]*t[2], t=ifactors(n)[2])+n end proc:
N:= 100: # for a(1)..a(N)
V:= Vector(N):
for n from 1 to N do
v:= f(n);
if v <= N then V[v]:= V[v]+1 fi
od:
convert(V[1..N], list);
MATHEMATICA
f[1] = 1; f[n_] := n + Plus @@ Times @@@ FactorInteger[n]; m = 100; v = Table[0, {m}]; Do[i = f[n]; If[i <= m, v[[i]]++], {n, 1, m}]; v (* Amiram Eldar, Jul 14 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Jul 14 2021
STATUS
approved