OFFSET
1,2
COMMENTS
All terms are odd.
There are an infinite number of terms.
a(18) > 11000000001. - Robert G. Wilson v, Jun 30 2009
MATHEMATICA
f[n_] := f[n] = Block[{k = 3, a = Times @@ Table[ f@i, {i, n - 1}]}, While[ id = IntegerDigits[a*k, 2]; id != Reverse@id, k += 2]; k]; f[1]=1; Array[f, 17] (* Robert G. Wilson v, Jun 30 2009 *)
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Leroy Quet, Jul 15 2008
EXTENSIONS
a(6)-a(17) from Ray Chandler, Jun 21 2009
STATUS
approved