A354924 a(n) = 1 if A047994(n) is equal to A344005(n), otherwise 0.

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

Offset

1

Links

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

Index entries for characteristic functions

Formula

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

Mathematica

f[p_, e_] := p^e - 1; uphi[n_] := Times @@ f @@@ FactorInteger[n]; uphi[1] = 1; a[n_] := Module[{m = 1, u = uphi[n]}, While[m <= u && ! Divisible[m*(m + 1), n], m++]; If[m == u, 1, 0]]; Array[a, 100] (* Amiram Eldar, Jun 13 2022 *)

Prog

(PARI)
A047994(n) = { my(f=factor(n)~); prod(i=1, #f, (f[1, i]^f[2, i])-1); };
A344005(n) = for(m=1, oo, if((m*(m+1))%n==0, return(m))); \\ From A344005
A354924(n) = (A047994(n)==A344005(n));

Crossrefs

Characteristic function of A354928. Positions of zeros in A346608.

Cf. A047994, A344005, A346607.

Sequence in context: A228710 A103447 A354923 * A353799 A123927 A089829

Adjacent sequences: A354921 A354922 A354923 * A354925 A354926 A354927

Keyword

nonn

Author

Antti Karttunen, Jun 13 2022

Status

approved