OFFSET
1
LINKS
FORMULA
a(n) = [A034699(n)^2 < n], where [ ] is the Iverson bracket.
EXAMPLE
For n = 30, A034699(30) = 5 and as 5^2 < 30, a(30) = 1.
MATHEMATICA
a[n_] := If[n > Max[Power @@@ FactorInteger[n]]^2, 1, 0]; Array[a, 100] (* Amiram Eldar, Jun 18 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 18 2022
STATUS
approved