OFFSET
0,3
LINKS
T. D. Noe, Table of n, a(n) for n = 0..1000
EXAMPLE
a(12) = 30 since A067030(12) = 33 and 30 is the largest k such that 33 = k + reverse(k).
PROG
(ARIBAS): function a067034(a, b: integer); var n, k, m, i, rev: integer; st, nst: string; begin for n := a to b do k := 0; m := -1; while k <= n do st := itoa(k); nst := ""; for i := 0 to length(st) - 1 do nst := concat(st[i], nst); end; rev := atoi(nst); if n = k + rev then m := k; end; inc(k); end; if m >= 0 then write(m, ", "); end; end; end; a067034(0, 500); .
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Klaus Brockhaus, Dec 29 2001
STATUS
approved