OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Do[s1=MoebiusMu[DivisorSigma[1, n]]; s2=MoebiusMu[DivisorSigma[2, n]]; If[ !Equal[s1, 0]&&!Equal[s2, 0], Print[n]], {n, 1, 1000}]
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Labos Elemer, Mar 19 2003
STATUS
approved