|
%I #19 Aug 19 2018 18:08:59
%S 7,70,77,161,168,252,259,343,434,525,595,616,686,700,707,770,777,861,
%T 868,952,959,1001,1008,1071,1078,1162,1169,1253,1344,1435,1526,1596,
%U 1610,1617,1680,1687,1701,1708,1771,1778,1862,1869,1953,2002,2009
%N Number and its reversal are both multiples of 7.
%H Oren Meisner, <a href="/A062901/b062901.txt">Table of n, a(n) for n = 1..10000</a>
%e 168 and 861 are both multiples of 7.
%t Select[7Range[300],Divisible[FromDigits[Reverse[IntegerDigits[#]]], 7]&] (* _Harvey P. Dale_, Oct 03 2011 *)
%o (ARIBAS): n := 7; stop := 2400; m := 0; while m < stop do rev := int_reverse(m); if rev mod n = 0 then write(m," "); end; inc( m,n); end;
%o (PARI) isok(n) = !(n%7) && !(fromdigits(Vecrev(digits(n))) % 7); \\ _Michel Marcus_, Aug 14 2018
%K nonn,base,easy
%O 1,1
%A _Amarnath Murthy_, Jul 01 2001
%E Corrected and extended by _Dean Hickerson_ and _Klaus Brockhaus_, Jul 06 2001
|
