OFFSET
1
COMMENTS
LINKS
FORMULA
a(1) = 0; and for n > 1, a(n) = [0=A238525(n)], where [ ] is the Iverson bracket.
MATHEMATICA
Array[Boole[Mod[#, Total@ Flatten[ConstantArray[#1, #2] & @@@ FactorInteger[#]]] == 0] - Boole[# == 1] &, 105] (* Michael De Vlieger, Mar 19 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 18 2021
STATUS
approved