A062901 Number and its reversal are both multiples of 7.
7, 70, 77, 161, 168, 252, 259, 343, 434, 525, 595, 616, 686, 700, 707, 770, 777, 861, 868, 952, 959, 1001, 1008, 1071, 1078, 1162, 1169, 1253, 1344, 1435, 1526, 1596, 1610, 1617, 1680, 1687, 1701, 1708, 1771, 1778, 1862, 1869, 1953, 2002, 2009
Offset: 1
Examples
168 and 861 are both multiples of 7.
Links
- Oren Meisner, Table of n, a(n) for n = 1..10000
Programs
-
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;
-
Mathematica
Select[7Range[300],Divisible[FromDigits[Reverse[IntegerDigits[#]]], 7]&] (* Harvey P. Dale, Oct 03 2011 *)
-
PARI
isok(n) = !(n%7) && !(fromdigits(Vecrev(digits(n))) % 7); \\ Michel Marcus, Aug 14 2018
Extensions
Corrected and extended by Dean Hickerson and Klaus Brockhaus, Jul 06 2001