OFFSET
0,3
LINKS
T. D. Noe, Table of n, a(n) for n = 0..1000
EXAMPLE
a(12) = 12 since A067030(12) = 33 and 12 is the smallest k such that 33 = k + reverse(k).
PROG
(ARIBAS): function a067033(a, b: integer); var n, k, i, rev: integer; st, nst: string; begin for n := a to b do k := 0; 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 write(k, ", ") k := n + 1; else inc(k); end; end; end; end; a067033(0, 500); .
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Klaus Brockhaus, Dec 29 2001
STATUS
approved