OFFSET
1
LINKS
FORMULA
a(n) = [n==1 or A373480(n)==0], where [ ] is the Iverson bracket.
MATHEMATICA
Array[Boole@ Divisible[If[#1 < 2, 0, #1 Total[#2/#1 & @@@ #2]], Total[Times @@@ #2]] & @@ {#, FactorInteger[#]} &, 120] (* Michael De Vlieger, Jun 08 2024 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 08 2024
STATUS
approved