A325321 - OEIS

A325321

a(n) = 1 if cototient of n is a square, 0 otherwise.

1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0

(list; graph; refs; listen; history; text; internal format)

OFFSET

COMMENTS

Characteristic function of A063752.

LINKS

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

FORMULA

a(n) = A010052(A051953(n)).

MATHEMATICA

Array[Boole[IntegerQ@ Sqrt[# - EulerPhi@ #]] &, 105] (* Michael De Vlieger, Apr 21 2019 *)

PROG