OFFSET
1,2
LINKS
PROG
(PARI) A391584(n) = forstep(i=1, oo, 2, my(P3i=Pol(binary(3*i))*Mod(1, 2), P_i=Pol(binary(i))*Mod(1, 2)); if(0==lift(P3i % P_i), if(n>1, n--, return(i))));
(PARI)
up_to = 10000;
A391584list(up_to_n) = { my(v=vector(up_to_n), k=0, i = -1); while(k<#v, i += 2; my(P3i=Pol(binary(3*i))*Mod(1, 2), P_i=Pol(binary(i))*Mod(1, 2)); if(0==lift(P3i % P_i), k++; v[k] = i)); (v); };
v391584 = A391584list(up_to);
A391584(n) = v391584[n];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Dec 18 2025
STATUS
approved
