OFFSET
1,3
COMMENTS
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..10000
FORMULA
MATHEMATICA
a[n_] := Length[Select[Range[n], Mod[ #(#+1)/2, n]==0&]]
PROG
(PARI) a(n) = {my(c = 0); for(k = 1, n, c += !((k*(k+1)/2) % n)); c; } \\ Amiram Eldar, Sep 15 2024
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 18 2002
EXTENSIONS
Edited by David W. Wilson and Dean Hickerson, Jun 08 2002
STATUS
approved