OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
15 = 3*5 = {1,1,1,1}.
21 = 3*7 = {1,0,1,0,1}.
33 = 3*11 = {1,0,0,0,0,1}.
MATHEMATICA
f1[n_]:=Reverse[IntegerDigits[n, 2]]==IntegerDigits[n, 2]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f1[n]&&f2[n], AppendTo[lst, n]], {n, 8!}]; lst
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 23 2009
STATUS
approved