OFFSET
2,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 2..10000
MATHEMATICA
gpf[n_] := FactorInteger[n][[-1, 1]]; a[n_] := gpf[DivisorSigma[3, n]]; Array[a, 65, 2] (* Amiram Eldar, Aug 01 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 05 2002
STATUS
approved