A344885 a(n) = 1 if A011772(n) is equal to A344878(n), otherwise 0; characteristic function of A344979.

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

Offset

1

Links

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

Index entries for characteristic functions

Formula

a(n) = 1 if A344976(n) = 0, otherwise 0.

A010055(n) <= a(n) <= A344884(n).

Prog

(PARI)
A011772(n) = { if(n==1, return(1)); my(f=factor(if(n%2, n, 2*n)), step=vecmax(vector(#f~, i, f[i, 1]^f[i, 2]))); forstep(m=step, 2*n, step, if(m*(m-1)/2%n==0, return(m-1)); if(m*(m+1)/2%n==0, return(m))); }; \\ From A011772
A344878(n) = if(1==n, n, my(f=factor(n)~); lcm(vector(#f, i, (f[1, i]^(f[2, i]+(2==f[1, i]))-1))));
A344885(n) = (A344878(n)==A011772(n));

Crossrefs

Characteristic function of A344979.

Cf. A010055, A011772, A344878, A344880, A344884, A344976.

Sequence in context: A010055 A324290 A325964 * A345064 A076699 A378442

Adjacent sequences: A344882 A344883 A344884 * A344886 A344887 A344888

Keyword

nonn

Author

Antti Karttunen, Jun 05 2021

Status

approved