OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
3, which in binary is A007088(3) = "11" (with two adjacent 1-bits), and 3*3 = 9, with A007088(9) = "1001", the same bit-pattern can be obtained by xoring "111" (= A007088(7)) with itself shifted once left, that is, as 9 = A048724(7), thus 3*3 = A048720(3,7), and because 7 > 3, therefore 3 is included in this sequence.
51, which in binary is A007088(51) = "110011" (with two adjacent 1-bits), and 3*51 = 153, with A007088(153) = "10011001", the same bit-pattern can be obtained by xoring "1110111" [= A007088(119)] with itself shifted once left, that is, as 153 = A048724(119), thus 3*51 = A048720(3,119), and because 119 > 51, therefore 51 is included in this sequence.
PROG
(PARI) is_A391575(n) = ((bitand(n, n>>1)>0) && 0==lift((Pol(binary(3*n))*Mod(1, 2)) % (Pol(binary(3))*Mod(1, 2))));
(PARI)
A048720(b, c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
is_A391575(n) = (0==lift((Pol(binary(3*n))*Mod(1, 2)) % (Pol(binary(3))*Mod(1, 2))) && (A048720(3, n) != 3*n));
(PARI)
A280500_sq(a, b) = { my(Pa=Pol(binary(a))*Mod(1, 2), Pb=Pol(binary(b))*Mod(1, 2)); if(0!=lift(Pa % Pb), 0, fromdigits(Vec(lift(Pa/Pb)), 2)); };
CROSSREFS
Cf. also A391577.
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Dec 17 2025
STATUS
approved
