|
| |
|
|
A086669
|
|
Number of divisors of n that are fundamental discriminants.
|
|
0
| |
|
|
1, 1, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 2, 1, 1, 2, 2, 1, 1, 4, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 1, 2, 4, 2, 2, 1, 2, 2, 1, 1, 4, 1, 2, 2, 2, 2, 1, 2, 4, 2, 2, 1, 4, 2, 1, 2, 2, 4, 2, 1, 2, 2, 2, 1, 4, 2, 2, 2, 2, 2, 2, 1, 4, 1, 2, 1, 4, 4, 1, 2, 4, 2, 2, 2, 2, 2, 1, 2, 4, 2, 1, 2, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
EXAMPLE
| 10 has divisors 1,2,5 and 10 of which 1 and 5 are fundamental discriminants, so a(10)=2
|
|
|
PROG
| (PARI) for (n=1, 100, s=0; fordiv(i=n, i, s+=isfundamental(i)); print1(", "s))
|
|
|
CROSSREFS
| Sequence in context: A061337 A103684 A105103 * A053574 A065203 A029396
Adjacent sequences: A086666 A086667 A086668 * A086670 A086671 A086672
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jon Perry (perry(AT)globalnet.co.uk), Jul 27 2003
|
| |
|
|
