OFFSET
1,2
LINKS
John Tyler Rascoe, Table of n, a(n) for n = 1..10000
MATHEMATICA
fQ[n_] := Block[{id = IntegerDigits[n, 2]}, id == Reverse@ id && id[[ Ceiling[ Length@ id/2] ]] == 0]; Select[ Range[0, 2564], fQ@# &] (* Robert G. Wilson v, Jun 27 2010 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Leroy Quet, Jun 23 2010
EXTENSIONS
a(9)-a(51) from Robert G. Wilson v, Jun 27 2010
STATUS
approved