|
| |
|
|
A069931
|
|
Number of k, 1<=k<=n, such that k divides sigma(n).
|
|
0
| |
|
|
1, 1, 2, 1, 3, 5, 3, 3, 1, 5, 5, 4, 3, 7, 7, 1, 5, 3, 5, 6, 5, 8, 7, 10, 1, 7, 7, 7, 7, 10, 5, 5, 9, 7, 9, 3, 3, 11, 7, 10, 7, 10, 5, 11, 7, 11, 9, 4, 3, 3, 11, 5, 7, 14, 11, 14, 9, 11, 11, 14, 3, 11, 7, 1, 11, 13, 5, 1, 1, 11, 13, 11, 7, 3, 7, 5, 11, 11, 14, 9, 6, 2, 11, 11, 10, 11, 11, 15, 16
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,3
|
|
|
COMMENTS
| Sequence does not give the number of all integers dividing sigma(n) which is tau(sigma(n)) (for some n and some m>n m divides sigma(n))
|
|
|
FORMULA
| Asymptotically (still conjectured) : sum(k=1, n, a(k))=C*n*ln(n)^2+o(nln(n)^2) with C=0, 35...
|
|
|
PROG
| (PARI) for(n=1, 150, print1(sum(i=1, n, if(sigma(n)%i, 0, 1)), ", "))
|
|
|
CROSSREFS
| Sequence in context: A193953 A201377 A060083 * A182939 A056943 A171085
Adjacent sequences: A069928 A069929 A069930 * A069932 A069933 A069934
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), May 05 2002
|
| |
|
|
