login
Palindromes with odd number of digits.
6

%I #20 Aug 21 2020 14:19:25

%S 1,2,3,4,5,6,7,8,9,101,111,121,131,141,151,161,171,181,191,202,212,

%T 222,232,242,252,262,272,282,292,303,313,323,333,343,353,363,373,383,

%U 393,404,414,424,434,444,454,464,474,484,494,505,515,525,535,545,555,565

%N Palindromes with odd number of digits.

%C Concatenation of all but final digits of n with reverse of n (keeping leading zeros in the reverse)

%C A178788(a(n)) = 0 for n > 9. [From _Reinhard Zumkeller_, Jun 30 2010]

%H Reinhard Zumkeller, <a href="/A056525/b056525.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Fi#final">Index entries for sequences related to final digits of numbers</a>

%F a(n) = floor[n/10]*10^A055642(n)+A004086(n)

%t Join[Range[9],Table[FromDigits[Join[x=IntegerDigits[n],Reverse[Drop[x,-1]]]],{n,10,56}]] (* _Jayanta Basu_, May 29 2013 *)

%t Select[Flatten[Table[Range[10^n,10^(n+1)-1],{n,0,2,2}]],PalindromeQ] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 21 2020 *)

%o (Haskell)

%o a056525 n = a056525_list !! (n-1)

%o a056525_list = [1..9] ++ [read (ns ++ [z] ++ reverse ns) |

%o n <- [1..], let ns = show n, z <- "0123456789"]

%o -- _Reinhard Zumkeller_, Dec 28 2011

%Y Cf. A002113, A004086, A056524.

%K base,easy,nonn

%O 1,2

%A _Henry Bottomley_, Jun 16 2000