

A096768


Numbers n of the form k + reverse(k) for two or more values of k.


2



22, 33, 44, 55, 66, 77, 88, 99, 110, 121, 132, 143, 154, 165, 176, 187, 202, 222, 242, 262, 282, 302, 303, 322, 323, 342, 343, 362, 363, 382, 383, 403, 404, 423, 424, 443, 444, 463, 464, 483, 484, 504, 505, 524, 525, 544, 545, 564, 565, 584, 585, 605, 606
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

N. J. A. Sloane, Table of n, a(n) for n = 1..2106
Index entries for sequences related to Reverse and Add!


EXAMPLE

22 belongs to the sequence since 11 + 11 = 22 and 20 + 2 = 22 (k = {11, 20}); 33 belongs to the sequence since 12 + 21 = 33, 21 + 12 = 33 and 30 + 3 = 33 (k = {12, 21, 30}).


MAPLE

reverse:= proc (d) local n, m; m:=0; n:=d; while n>0 do m:=m*10+(n mod 10); n:=(n(n mod 10))/10; od; m; end; P:={}; P2:={}; for i to 5000 do; if i>0 then; r:=i+reverse(i); rat:={r}; if P intersect rat = {} then P:=P union rat else P2:=P2 union rat fi; fi; od; P2;
# Maple program from N. J. A. Sloane, Mar 07 2016. Assumes digrev (from the "transforms" file) is available:
M:=1000; b := Array(1..M, 0);
for n from 1 to M do
t1:=n+digrev(n);
if t1 <= M then b[t1]:=b[t1]+1; fi;
od:
ans:=[];
for n from 1 to M do
if b[n]>=2 then ans:=[op(ans), n]; fi; od:
ans;


MATHEMATICA

M = 10^3; digrev[n_] := IntegerDigits[n] // Reverse // FromDigits; Clear[b]; b[_] = 0; For[n = 1, n <= M, n++, t1 = n + digrev[n]; If[t1 <= M, b[t1] = b[t1] + 1]]; A096768 = Reap[For[n = 1, n <= M, n++, If[b[n] >= 2, Sow[n]]]][[2, 1]] (* JeanFrançois Alcover, Oct 01 2016, after N. J. A. Sloane's Maple code *)


CROSSREFS

Cf. A067030, A072040 (exactly two values of k).
Sequence in context: A250180 A252078 A157496 * A157529 A165932 A190588
Adjacent sequences: A096765 A096766 A096767 * A096769 A096770 A096771


KEYWORD

base,easy,nonn


AUTHOR

Chuck Seggelin (seqfan(AT)plastereddragon.com), Jul 08 2004


STATUS

approved



