OFFSET
1,2
COMMENTS
Chowla's function (A048050) = sum of divisors of n except 1 and n.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MAPLE
with(numtheory):
[seq(`if`((sigma(i)-i-1) mod tau(i)=0, i, print( )), i=1..1000)];
MATHEMATICA
Select[Range[200], Divisible[DivisorSigma[1, #]-1-#, DivisorSigma[0, #]]&] (* Harvey P. Dale, Mar 11 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Asher Auel, Jan 19 2000
STATUS
approved