OFFSET
1,3
LINKS
Harry J. Smith, Table of n, a(n) for n=1..1000
MATHEMATICA
Table[PrimeNu[DivisorSigma[4, n]], {n, 1, 50}] (* G. C. Greubel, May 08 2017 *)
PROG
(PARI) { for (n=1, 1000, a=omega(sigma(n, 4)); write("b066102.txt", n, " ", a) ) } \\ Harry J. Smith, Nov 14 2009
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Dec 04 2001
STATUS
approved