login
A353787
a(n) = 1 if A084110(n) is equal to n, otherwise 0.
2
1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0
OFFSET
1
PROG
(PARI)
A084110(n) = { my(e=1); fordiv(n, d, if(!(e%d), e /= d, e *= d)); (e); };
A353787(n) = (A084110(n)==n);
CROSSREFS
Characteristic function of A084111.
Sequence in context: A267133 A080339 A294905 * A297086 A349920 A369253
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 13 2022
STATUS
approved