%I #16 Sep 01 2018 09:16:57
%S 1,2,10,13,14,23,31,32,40,41,100,1000,10000,24000,42000,100000,318317,
%T 713813,1000000,10000000,43029128,82192034,100000000,1000000000,
%U 3632590347,7430952363,10000000000,100000000000,259218138145,541831812952,1000000000000,10000000000000
%N Numbers m such that m*reversal(m)+1 is a palindrome.
%H Carlos Rivera,<a href="http://www.primepuzzles.net/puzzles/puzz_496.htm">P*R(P)+1 = Palprime</a>
%t rev[n_] := FromDigits[Reverse[IntegerDigits[n]]]; isPal[n_] := n == rev[n]; t = {}; Do[If[isPal[n*rev[n] + 1], AppendTo[t, n]], {n, 10^6}]; t (* _T. D. Noe_, Mar 15 2012 *)
%Y Cf. A158997, A158999.
%K nonn,base
%O 1,2
%A _Franklin T. Adams-Watters_, May 14 2010
%E Two missing terms added by _Lars Blomberg_, Mar 15 2012
%E a(29)-a(32) from _Giovanni Resta_, Sep 01 2018