|
| |
|
|
A158974
|
|
a(n) = count of numbers k <= n such that not all proper divisors of k are divisors of n.
|
|
2
| |
|
|
0, 0, 0, 0, 1, 0, 2, 1, 3, 3, 5, 1, 6, 5, 6, 6, 9, 6, 10, 7, 10, 11, 13, 7, 14, 14, 15, 14, 18, 12, 19, 16, 19, 20, 21, 16, 24, 23, 24, 20, 27, 22, 28, 25, 25, 29, 31, 23, 32, 30, 33, 32, 36, 31, 36, 32, 38, 39, 41, 31, 42, 41, 39, 40, 44, 41, 47, 44, 47, 43, 50, 40, 51, 50, 49, 50
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,7
|
|
|
COMMENTS
| For primes p, a(p) = p - A036234(p) = p - A000720(p) - 1.
|
|
|
EXAMPLE
| For n = 8 we have the following proper divisors for k <= n: {1}, {1}, {1}, {1, 2}, {1}, {1, 2, 3}, {1}, {1, 2, 4}. Only k = 6 has a proper divisor that is not a divisor of 8, viz. 3. Hence a(8) = 1.
|
|
|
PROG
| (MAGMA) [ #[ k: k in [1..n] | exists(t){ d: d in Divisors(k) | d ne k and d notin Divisors(n) } ]: n in [1..76] ];
|
|
|
CROSSREFS
| Cf. A000040, A036234, A000720, A158973.
Sequence in context: A038071 A032140 A032044 * A152993 A178133 A026927
Adjacent sequences: A158971 A158972 A158973 * A158975 A158976 A158977
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jaroslav Krizek (jaroslav.krizek(AT)atlas.cz), Apr 01 2009
|
|
|
EXTENSIONS
| Edited and extended by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Apr 06 2009
|
| |
|
|
