OFFSET
0,2
EXAMPLE
0, 1, 2, and 3 first appear in A106490 at positions 1, 2, 4, and 12, respectively.
MATHEMATICA
a[n_] := a[n] = If[n == 1, 0, Sum[1 + a[i[[2]]], {i, FactorInteger[n]}]];
Flatten@ Table[FirstPosition[#, k_ /; k == n], {n, 0, 9}] &@ Table[a[n], {n, 10^6}] (* Michael De Vlieger, Aug 25 2016, Version 10, after Jean-François Alcover at A106490 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hans Havermann, Aug 24 2016
EXTENSIONS
More terms from Alois P. Heinz, Aug 25 2016
STATUS
approved