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

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, 36, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78

Offset: 1

Author

Jayanta Basu, Jul 14 2013

Keywords

• nonn
• base

Comments

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

Examples

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

Crossrefs

Cf. A000142, A004086.

Programs

Maple

read("transforms"):
isA227508 := proc(n)
    if modp(n!,digrev(n)) = 0 then
        true;
    else
        false ;
    end if;
end proc:
A227508 := proc(n)
    if n = 1 then
        1;
    else
        for a from procname(n-1)+1 do
            if isA227508(a) then
                return a;
            end if;
        end do:
    end if;
end proc: # R. J. Mathar, Jul 20 2013

Mathematica

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