OFFSET
1,1
COMMENTS
Question: How does ratio a(n)/A391254(n) grow?
LINKS
PROG
(PARI) is_A391253(n) = if(!(n%2) || 2!=bigomega(n), 0, my(f=factor(n), a = f[1, 1], b = f[#f~, 1], Pa=Pol(binary(a))*Mod(1, 2), Pb=Pol(binary(b))*Mod(1, 2), Pn=Pol(binary(n))*Mod(1, 2)); ((0==lift(Pn % Pa)) || (0==lift(Pn % Pb))));
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Dec 06 2025
STATUS
approved
