OFFSET
1,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
FORMULA
MATHEMATICA
notpalbinQ[i_]:=Module[{id=IntegerDigits[i, 2]}, While[Last[id]==0, id=Most[id]]; id!= Reverse[id]]; lm[n_]:=Module[{k=1}, While[notpalbinQ[k n], k++]; k n]; Array[lm, 70] (* Harvey P. Dale, Dec 28 2011 *)
PROG
(PARI) A141709(n)=forstep(k=n, 10^9, n, vecextract(t=binary(k>>valuation(k, 2)), "-1..1")-t || return(k))
(Haskell)
a141709 n = until ((== 1) . a178225 . a000265) (+ n) n
-- Reinhard Zumkeller, Nov 06 2012
CROSSREFS
KEYWORD
base,easy,nice,nonn
AUTHOR
M. F. Hasler, Jul 17 2008
STATUS
approved