OFFSET
0,8
COMMENTS
EXAMPLE
26 (decimal) = 122 -> 122 + 221 = 1003 -> 1003 + 3001 = 10010 -> 10010 + 01001 = 11011 (palindrome) = 325 (decimal) requires 3 steps, so a(26) = 3.
PROG
(ARIBAS) m := 105; stop := 1000; for n := 0 to m do c := 0; k := n; v := -1; while c < stop do a := k; rev := 0; while a > 0 do rev := 4*rev + (a mod 4); a := a div 4; end; if k = rev then v := c; c := stop; else inc(c); k := k + rev; end; end; write(v, " "); end; .
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Klaus Brockhaus, Sep 24 2002
STATUS
approved
