login
[{n concatenate R(n)} + {R(n) concatenate n}]/11, where R(n) = digit reversal of n.
4

%I #12 Nov 10 2017 13:33:24

%S 0,2,4,6,8,10,12,14,16,18,101,202,303,404,505,606,707,808,909,1010,

%T 202,303,404,505,606,707,808,909,1010,1111,303,404,505,606,707,808,

%U 909,1010,1111,1212,404,505,606,707,808,909,1010,1111,1212,1313,505

%N [{n concatenate R(n)} + {R(n) concatenate n}]/11, where R(n) = digit reversal of n.

%H G. C. Greubel, <a href="/A110725/b110725.txt">Table of n, a(n) for n = 0..1000</a>

%F A110724(n)/11.

%F When n has one digit, a(n)=2*n. When n has two digits, a(n)= 101*x + 101*y. (Here x,y are the digits of n.). - _Keith Schneider_, Jun 16 2007

%e a(12) = {1221 + 2112}/11 = 303. a(68) = {6886 + 8668}/11 = 1414.

%t Table[(FromDigits[Join[IntegerDigits[n], Reverse[IntegerDigits[n]]]] + FromDigits[Join[Reverse[IntegerDigits[n]], IntegerDigits[n]]])/11, {n, 0, 50}] (* _Stefan Steinerberger_, Jun 17 2007 *)

%t cr[n_]:=Module[{r=IntegerReverse[n]},(n*10^IntegerLength[n]+r+ r*10^ IntegerLength[ n]+n)/11]; Array[cr,60,0] (* _Harvey P. Dale_, Nov 10 2017 *)

%Y Cf. A110722, A110723, A110724.

%K base,nonn,less,easy

%O 0,2

%A _Amarnath Murthy_, Aug 09 2005

%E Corrected and extended by _Stefan Steinerberger_, Jun 17 2007