login
A183093
a(1) = 0; thereafter, a(n) = number of divisors d of n such that if d = Product_(i) (p_i^e_i) then all e_i <= 1.
4
0, 1, 1, 1, 1, 3, 1, 1, 1, 3, 1, 4, 1, 3, 3, 1, 1, 4, 1, 4, 3, 3, 1, 5, 1, 3, 1, 4, 1, 7, 1, 1, 3, 3, 3, 5, 1, 3, 3, 5, 1, 7, 1, 4, 4, 3, 1, 6, 1, 4, 3, 4, 1, 5, 3, 5, 3, 3, 1, 10, 1, 3, 4, 1, 3, 7, 1, 4, 3, 7, 1, 6, 1, 3, 4, 4, 3, 7, 1, 6, 1, 3, 1, 10, 3, 3, 3, 5, 1, 10, 3, 4, 3, 3, 3, 7, 1, 4, 4, 5
OFFSET
1,6
COMMENTS
a(n) = number of non-powerful divisors d of n where powerful numbers are numbers from A001694(m) for m >=2.
Sequence is not the same as A183093(n): a(72) = 6, A183093(72) = 7.
FORMULA
a(n) = A000005(n) - A005361(n) = A183095(n) - 1.
a(1) = 0, a(p) = 1, a(pq) = 3, a(pq...z) = 2^k - 1, a(p^k) = 1, for p, q = primes, k = natural numbers, pq...z = product of k (k > 2) distinct primes p, q, ..., z.
EXAMPLE
For n = 12, set of such divisors is {2, 3, 6, 12}; a(12) = 4.
PROG
(Scheme) (define (A183093 n) (- (A000005 n) (A005361 n))) ;; Antti Karttunen, Nov 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Dec 25 2010
STATUS
approved