OFFSET
1,5
COMMENTS
Conjecture: a(n) > 0 for n > 1. (This is false.)
It seems that a(815) = 0. - M. F. Hasler, Jan 08 2020
PROG
(PARI) apply( {a(n)=#[0|p<-factor(n=A2182[n])[, 1], setsearch(A2182, n/p)]}, [1..99]) \\ Uses global var. A2182 which must be assigned to a vector of at least n elements of that sequence. - M. F. Hasler, Jan 08 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
David A. Corneth, Jan 04 2020
STATUS
approved