OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..2048 (computed with the help of b-file of A057826 provided by T. D. Noe)
FORMULA
For all n, a(n) >= A066412(n). - Antti Karttunen, Jul 17 2017
PROG
(PARI) for(n=1, 100, print1(sum(i=1, 1000, if(eulerphi(n)%eulerphi(i), 0, 1)), ", "))
(Scheme)
;; A naive implementation requiring precomputed A057826:
(define (A071181 n) (if (<= n 2) 2 (let ((ph (A000010 n))) (let loop ((k (A057826 (/ ph 2))) (s 0)) (if (zero? k) s (loop (- k 1) (+ s (if (zero? (modulo ph (A000010 k))) 1 0)))))))) ;; Antti Karttunen, Jul 18 2017
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 10 2002
STATUS
approved