|
Search: id:A072431
|
|
|
| A072431 |
|
Numbers n for which there are exactly seven k such that n = k + reverse(k). |
|
+0
1
|
|
| 77, 132, 707, 727, 747, 767, 787, 807, 827, 847, 867, 887, 1212, 1232, 1252, 1272, 1292, 1312, 1332, 1352, 1372, 1392, 1661, 2321, 7007, 8987, 12012, 13992, 16061, 16261, 16461, 16661, 16861, 17061, 17261, 17461, 17661, 17861, 18678, 19338
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
Subsequence of A067030. First term is A072041(7).
|
|
LINKS
|
Index entries for sequences related to Reverse and Add!
|
|
EXAMPLE
|
77 = k + reverse(k) for k = 16, 25, 34, 43, 52, 61, 70; 77 = k + reverse(k) for k = 39, 48, 57, 66, 75, 84, 93.
|
|
PROGRAM
|
(ARIBAS) var n, k, c, i, rev: integer; st, nst: string; end; m := 7; for n := 0 to 22600 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: A105998 A039444 A118611 this_sequence A046435 A004964 A118226
Adjacent sequences: A072428 A072429 A072430 this_sequence A072432 A072433 A072434
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Klaus Brockhaus (klaus-brockhaus(AT)t-online.de), Jun 17 2002
|
|
|
Search completed in 0.002 seconds
|
