|
| |
|
|
A072435
|
|
Numbers n for which there are exactly twelve k such that n = k + reverse(k).
|
|
0
| |
|
|
2552, 3333, 3432, 4224, 4653, 5764, 6116, 7876, 13123, 14883, 15235, 16346, 16775, 17567, 17666, 18447, 25052, 25252, 25452, 25652, 25852, 26052, 26252, 26452, 26652, 26852, 33033, 33132, 33233, 33332, 33433, 33532, 33633, 33732, 33833
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Subsequence of A067030. First term is A072041(12).
|
|
|
LINKS
| Index entries for sequences related to Reverse and Add!
|
|
|
EXAMPLE
| 2552 = k + reverse(k) for k = 1051, 1141, 1231, 1321, 1411, 1501, 2050, 2140, 2230, 2320, 2410, 2500.
|
|
|
PROG
| (ARIBAS) var n, k, c, i, rev: integer; st, nst: string; end; m := 12; for n := 0 to 34200 do k := n div 2; c := 0; while k <= n and c < m + 1 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 inc(c); if k mod 10 <> 0 and k <> rev then inc(c); end; end; inc(k); end; if c = m then write(n, ", "); end; end;
|
|
|
CROSSREFS
| Cf. A067030, A072041.
Sequence in context: A206596 A135924 A035876 * A050413 A050544 A185516
Adjacent sequences: A072432 A072433 A072434 * A072436 A072437 A072438
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 17 2002
|
| |
|
|
