%I #31 May 01 2021 15:57:31
%S 1,2,3,8,5,36,7,64,27,10,11,144,1,14,15,64,1,324,1,40,21,484,1,1152,5,
%T 2,27,56,1,180,1,64,1089,2,35,1296,1,2,3,320,1,252,1,85184,135,2,1,
%U 1152,7,10,3,8,1,324,3025,448,3,2,1,720,1,2,189,64,5,18974736,1,8,3,70,1,10368,1,2,15,8,5929,36,1,320,27,2,1,1008,5,2,3,59969536,1,1620,7,8,3,2,5,1152,1,14,970299,40
%N a(n) is the product of palindromic divisors of n.
%H Indranil Ghosh, <a href="/A184392/b184392.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A007955(n) / A179937(n).
%e For n = 20, set of palindromic divisors is {1, 2, 4, 5}; a(12) = 1*2*4*5 = 40.
%t palQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]]; f[n_]:=Times@@Select[Divisors[n],palQ]; Table[f[n],{n,100}] (* _Harvey P. Dale_, Jan 21 2011 *)
%o (Python)
%o def ispal(n):
%o return n==int(str(n)[::-1])
%o def A184392(n):
%o s=1
%o for i in range(1, n+1):
%o if n%i==0 and ispal(i):
%o s*=i
%o return s # _Indranil Ghosh_, Feb 10 2017
%Y Cf. A007955, A087990, A087991, A088000, A088001, A179937.
%K nonn,base
%O 1,2
%A _Jaroslav Krizek_, Jan 12 2011
%E More terms from _Harvey P. Dale_, Jan 21 2011