|
%I #8 May 11 2019 02:24:31
%S 9,21,33,35,45,49,65,75,93,105,129,133,135,153,155,161,165,189,195,
%T 217,225,259,273,279,297,309,315,341,345,381,385,403,441,465,513,525,
%U 527,561,567,585,589,597,611,621,635,645,651,681,693,705,713,729,765,775,793,819,837,889,899,945,961,1025,1029,1035,1057,1065
%N Odd numbers n that have divisor d > 1 such that A048720(A065621(d),n/d) = n.
%H Antti Karttunen, <a href="/A325573/b325573.txt">Table of n, a(n) for n = 1..10000</a>
%o (PARI)
%o A048720(b,c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
%o A065621(n) = bitxor(n-1,n+n-1);
%o isA325573(n) = ((n%2)&&fordiv(n,d,if(A048720(A065621(n/d),d)==n,return(d<n))));
%Y Cf. A048720, A065621, A115872, A325566, A325567, A325571.
%Y Subsequence of A071904 and of A325572.
%K nonn
%O 1,1
%A _Antti Karttunen_, May 10 2019
|
