OFFSET
1,2
COMMENTS
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
Function[{s, t}, ReplacePart[t, Flatten@ Map[MapIndexed[#1 -> First@ #2 &, #] &, Values@ s]]] @@ {PositionIndex@ #, ConstantArray[0, Length@ #]} & Table[n/FactorInteger[n][[1, 1]], {n, 113}] (* Michael De Vlieger, May 12 2017, Version 10 *)
b[_] = 0;
a[n_] := a[n] = With[{t = If[n == 1, 1, Divisors[n][[-2]]]}, b[t] = b[t]+1];
Array[a, 1000] (* Jean-François Alcover, Dec 24 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 12 2017
STATUS
approved