%I #9 Jul 21 2013 02:24:01

%S 1,2,3,4,5,6,7,8,9,10,11,12,18,19,20,21,22,23,24,25,27,29,30,31,32,33,

%T 36,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,

%U 61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78

%N Numbers n such that n! is divisible by R(n), the digit reversal of n.

%C Numbers n for which A004086(n) divides A000142(n).

%e 12 is a member since R(12)=21 divides 12! while 13 is not a member as 31 does not divide 13!.

%p read("transforms"):

%p isA227508 := proc(n)

%p if modp(n!,digrev(n)) = 0 then

%p true;

%p else

%p false ;

%p end if;

%p end proc:

%p A227508 := proc(n)

%p if n = 1 then

%p 1;

%p else

%p for a from procname(n-1)+1 do

%p if isA227508(a) then

%p return a;

%p end if;

%p end do:

%p end if;

%p end proc: # _R. J. Mathar_, Jul 20 2013

%t Select[Range[79], Divisible[#!, FromDigits[Reverse[IntegerDigits[#]]]] &]

%Y Cf. A000142, A004086.

%K nonn,base

%O 1,2

%A _Jayanta Basu_, Jul 14 2013