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,1

Links

Oren Meisner, Table of n, a(n) for n = 1..10000

Example

168 and 861 are both multiples of 7.

Mathematica

Select[7Range[300], Divisible[FromDigits[Reverse[IntegerDigits[#]]], 7]&] (* Harvey P. Dale, Oct 03 2011 *)

Prog

(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;
(PARI) isok(n) = !(n%7) && !(fromdigits(Vecrev(digits(n))) % 7); \\ Michel Marcus, Aug 14 2018

Crossrefs

Sequence in context: A082797 A216994 A121027 * A204094 A061476 A136959

Adjacent sequences: A062898 A062899 A062900 * A062902 A062903 A062904

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jul 01 2001

Extensions

Corrected and extended by Dean Hickerson and Klaus Brockhaus, Jul 06 2001

Status

approved