OFFSET
1,10
LINKS
MATHEMATICA
a[n_] := IntegerExponent[DivisorSigma[1, n], 3]; Array[a, 100] (* Amiram Eldar, May 18 2023 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 17 2022
STATUS
approved