%I A072227
%S A072227 1,2,3,4,5,6,7,8,9,11,13,17,19,22,23,26,27,29,31,33,37,39,41,43,44,46,
%T A072227 47,53,55,59,61,62,66,67,69,71,73,77,79,82,83,86,88,89,93,97,99,101,
%U A072227 103,107,109,113,121,127,131,137,139,143,149,151,157,163,167,169,173
%N A072227 Numbers n such that reverse(d) divides reverse(n) for all divisors d 
               of n.
%e A072227 The divisors of 187 are 1, 11, 17, 187, with reverses 1, 11, 71, 781 
               which all divide 781, the reverse of 187, so 187 is a term of the 
               sequence.
%t A072227 rev[n_] := FromDigits[Reverse[IntegerDigits[n]]]; a = {}; Do[d = Map[rev, 
               Divisors[n]]; l = Length[d]; e = rev[n]; r = True; For[i = 1, i <= 
               l, i++, If[ ! IntegerQ[e/d[[i]]], r = False]]; If[r, a = Append[a, 
               n]], {n, 1, 200}]; a
%Y A072227 Sequence in context: A106801 A124868 A165209 this_sequence A122427 A161597 
               A085429
%Y A072227 Adjacent sequences: A072224 A072225 A072226 this_sequence A072228 A072229 
               A072230
%K A072227 base,easy,nonn
%O A072227 1,2
%A A072227 Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Jul 05 2002