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