OFFSET
1,3
LINKS
Ray Chandler, Table of n, a(n) for n=1..10000
MATHEMATICA
Table[Length[Divisors[n*(n + 1)]] - Length[Select[Divisors[n*(n + 1)], If[ # > 1, Mod[n*(n + 1), #*(# - 1)] == 0] || Mod[n*(n + 1), #*(# + 1)] == 0 &]], {n, 1, 80}] (* Stefan Steinerberger, Nov 01 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Sep 30 2007
EXTENSIONS
More terms from Stefan Steinerberger, Nov 01 2007
Extended by Ray Chandler, Jun 23 2008
STATUS
approved