OFFSET
0
LINKS
MAPLE
a:= n-> `if`(add(i[2]/i[1], i=ifactors(n)[2])>1, 1, 0):
seq(a(n), n=0..121); # Alois P. Heinz, Jan 18 2024
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 18 2024
STATUS
approved