|
|
A062901
|
|
Number and its reversal are both multiples of 7.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|