OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..65537
FORMULA
a(n) = 1 iff A067029(n) > 1.
a(n) = 1 if A020639(n)^2 divides n, otherwise 0.
a(n) = 1 iff n > 1 and A126773(n) = 1.
a(4*n) = a(18*n + 9) = 1. - David A. Corneth, Oct 04 2018
Asymptotic mean: Limit_{m->oo} (1/m) * Sum_{k=1..m} a(k) = A283071. - Amiram Eldar, Jul 24 2022
MATHEMATICA
Join[{0}, Table[If[Divisible[n, FactorInteger[n][[1, 1]]^2], 1, 0], {n, 2, 130}]] (* Harvey P. Dale, Mar 01 2019 *)
PROG
(PARI) A319710(n) = ((n>1)&&(factor(n)[1, 2]>1));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 04 2018
STATUS
approved