|
%I #15 Jan 30 2024 13:03:33
%S 13,25,37,49,511,613,715,817,919,1021,1123,1225,1327,1429,1531,1633,
%T 1735,1837,1939,2041,2143,2245,2347,2449,2551,2653,2755,2857,2959,
%U 3061,3163,3265,3367,3469,3571,3673,3775,3877,3979,4081,4183,4285,4387,4489,4591,4693,4795,4897
%N a(n) is the concatenation of n and 2n+1.
%H Robert Israel, <a href="/A309809/b309809.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = n*10^(ceiling(log_10(2*n+1))) + 2*n + 1.
%e a(3)=37 is the concatenation of 3 and 7.
%p seq(n*10^(ceil(log[10](2*n+1)))+2*n+1, n=1..100);
%t Table[FromDigits[Join[IntegerDigits[n],IntegerDigits[2n+1]]],{n,50}] (* _Harvey P. Dale_, Jan 30 2024 *)
%Y Cf. A001704, A309808.
%K nonn,base
%O 1,1
%A _Robert Israel_, Aug 17 2019
|
