|
%I #4 Jul 13 2012 14:15:38
%S 1,12,122,1223,12232,122324,1223242,12232424,122324243,1223242434,
%T 12232424342,122324243426,1223242434262,12232424342624,
%U 122324243426244,1223242434262445,12232424342624452,122324243426244526
%N Concatenation of first n elements of the divisor function d(n), where d(n) is the number of divisors of n.
%t With[{c=DivisorSigma[0,Range[30]]},Table[FromDigits[Take[c,n]],{n,20}]] (* _Harvey P. Dale_, Jul 13 2012 *)
%Y d(n): A000005. Cf. A007908, A019518.
%K easy,nonn,base
%O 1,2
%A _Omar E. Pol_, Sep 05 2007
|
