A325571 Composite numbers n that have no divisor d > 1 such that A048720(A065621(d),n/d) = n.

15, 25, 27, 39, 51, 55, 57, 63, 69, 77, 81, 85, 87, 91, 95, 99, 111, 115, 117, 119, 121, 123, 125, 141, 143, 145, 147, 159, 169, 171, 175, 177, 183, 185, 187, 201, 203, 205, 207, 209, 213, 215, 219, 221, 231, 235, 237, 243, 245, 247, 249, 253, 255, 261, 265, 267, 275, 285, 287, 289, 291, 295, 299, 301, 303, 305, 319, 321

Offset

1,1

Links

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

Prog

(PARI)
A048720(b, c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
A065621(n) = bitxor(n-1, n+n-1);
isA325571(n) = ((n>1)&&!isprime(n)&&fordiv(n, d, if(A048720(A065621(n/d), d)==n, return(d==n))));

Crossrefs

Cf. A048720, A065621, A325573.

Intersection of A002808 and A325570.

Sequence in context: A120746 A106613 A192542 * A366926 A102802 A050692

Adjacent sequences: A325568 A325569 A325570 * A325572 A325573 A325574

Keyword

nonn

Author

Antti Karttunen, May 10 2019

Status

approved