Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #9 May 10 2017 03:29:07
%S 9009,9119,9229,9339,9449,9559,9669,9779,9889,9999,910109,911119,
%T 912129,913139,914149,915159,916169,917179,918189,919199,920209,
%U 921219,922229,923239,924249,925259,926269,927279,928289,929299,930309
%N Numbers of the concatenated form 9nn9.
%H Robert Israel, <a href="/A102484/b102484.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = 9*(1 + 10^(2*A055642(n-1)+1))+(n-1)*(10+10^(1+A055642(n-1))). - _Robert Israel_, May 09 2017
%e For n=0 we concatenate 3, 0, 0 and 3 to get 3003.
%e For n=10 we concatenate 3, 10, 10 and 3 to get 310103.
%p f:= n -> 9 + 9*10^(2*ilog10(n-1)+3)+(n-1)*(10+10^(2+ilog10(n-1))):
%p f(1):= 9009;
%p map(f, [$1..200]); # _Robert Israel_, May 09 2017
%t With[{k = {9}}, Table[FromDigits@ Join[k, #, #, k] &@ IntegerDigits[n], {n, 0, 30}]] (* _Michael De Vlieger_, May 09 2017 *)
%Y Cf. A100846 for 1nn1; A100896 for 3nn3; A100897 for 7nn7.
%Y Cf. A055642.
%K easy,nonn,base
%O 1,1
%A Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 12 2005