|
| |
|
|
A072428
|
|
Numbers n for which there are exactly four k such that n = k + reverse(k).
|
|
0
| |
|
|
44, 165, 404, 424, 444, 464, 484, 504, 524, 544, 564, 584, 1331, 1515, 1535, 1555, 1575, 1595, 1615, 1635, 1655, 1675, 1695, 2112, 2651, 3872, 4004, 5984, 13031, 13231, 13431, 13631, 13831, 14031, 14231, 14431, 14631, 14831, 15015, 16995
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Subsequence of A067030. First term is A072041(4).
|
|
|
LINKS
| Index entries for sequences related to Reverse and Add!
|
|
|
EXAMPLE
| 44 = k + reverse(k) for k = 13, 22, 31, 40; 1331 = k + reverse(k) for k = 1030, 1120, 1210, 1300.
|
|
|
PROG
| (ARIBAS) var n, k, c, i, rev: integer; st, nst: string; end; m := 4; for n := 0 to 20000 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: A102438 A044757 A204033 * A010023 A084026 A006563
Adjacent sequences: A072425 A072426 A072427 * A072429 A072430 A072431
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 17 2002
|
| |
|
|
