|
%I #4 Dec 16 2017 18:15:26
%S 3,6,9,12,15,18,21,24,18,30,33,54,75,96,117,138,159,180,102,123,45,66,
%T 87,108,129,150,171,192,114,135,57,78,99,120,141,162,183,204,126,147,
%U 69,90,111,132,153,174,195,216,138,159,81,102,123,144,165,186,207,228,150
%N a(n)= n + reversal(n-1) + reversal(n+1)
%C a(8)=8+R(7)+R(9)=8+7+9=24; a(15)=15+R(14)+R(16)=15+41+61=117; a(26)=26+R(25)+R(27)=26+52+72=150
%t Table[n+IntegerReverse[n-1]+IntegerReverse[n+1],{n,60}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Dec 16 2017 *)
%K nonn,base
%O 1,1
%A _Claudio Meller_, May 30 2009
|
