OFFSET
1
LINKS
FORMULA
a(n) = 1 iff A056170(n) > 1, otherwise 0.
a(n) = a(A046523(n)).
a(n) <= A353626(n).
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = 1 - (6/Pi^2) * (1 + A154945) = 0.05668359058... . - Amiram Eldar, Jul 24 2022
MATHEMATICA
a[n_] := If[Count[FactorInteger[n][[;; , 2]], _?(# > 1 &)] > 1, 1, 0]; Array[a, 100] (* Amiram Eldar, Jul 24 2022 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 02 2022
STATUS
approved