OFFSET
1,2
LINKS
EXAMPLE
MATHEMATICA
Select[Range@ 360, And[SquareFreeQ@ #, SequenceCount[IntegerDigits[#, 2], {0, 0}] == 0] &] (* Michael De Vlieger, Oct 11 2017 *)
PROG
(PARI)
isA003754(n) = { n=bitor(n, n>>1)+1; n>>=valuation(n, 2); (n==1); }; \\ After Charles R Greathouse IV's Feb 06 2017 code.
n=1; k=1; while(k <= 10000, if(isA003754(n)&&issquarefree(n), write("b293427.txt", k, " ", n); k=k+1); n=n+1; ); \\ Antti Karttunen, Oct 11 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Oct 11 2017
STATUS
approved