|
%I #27 Feb 13 2023 12:46:34
%S 1,4,4,4,8,4,4,12,18,8,4,8,8,16,48,16,96,576,16,32,16,32,16,32,64,256,
%T 96,32,128,256,8,64,32,128,384,144,16,8,64,32,256,64,8,192,96,32,128,
%U 128,8,64,8,128,1280,2560,8,24,16,64,8,8,32,384,48,64,128,128
%N a(n) = number of divisors of N, where N = reverse concatenation of 1,2,3,...,n.
%H Tyler Busby, <a href="/A110757/b110757.txt">Table of n, a(n) for n = 1..106</a>
%F a(n) = A000005(A000422(n)). - _Jinyuan Wang_, May 23 2020
%e a(3) = tau(321) = 4.
%t s = ""; Do[s = ToString[n] <> s; Print[DivisorSigma[0, ToExpression[s]]], {n, 1, 45}] (* _Ryan Propper_, Sep 23 2005 *)
%t Table[DivisorSigma[0,FromDigits[Flatten[IntegerDigits/@Range[n,1,-1]]]],{n,50}] (* The program takes a long time to run. *) (* _Harvey P. Dale_, Jun 06 2018 *)
%Y Cf. A000005, A000422, A176024.
%Y Cf. A110756, A110758, A110759, A110760.
%K nonn,base
%O 1,2
%A _Amarnath Murthy_, Aug 11 2005
%E More terms from _Ryan Propper_, Sep 23 2005
%E a(46)-a(66) from _Jinyuan Wang_, May 23 2020
|
