A062904 Numbers n such that n and its reversal are both multiples of 14.

252, 434, 616, 686, 868, 2002, 2072, 2254, 2436, 2520, 2590, 2618, 2688, 2702, 2772, 2954, 4004, 4074, 4256, 4340, 4438, 4522, 4592, 4704, 4774, 4956, 6006, 6076, 6160, 6258, 6342, 6524, 6594, 6706, 6776, 6860, 6958, 8008, 8078, 8162, 8344, 8526, 8596

Offset

1,1

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

2254 and 4522 are both multiples of 14.

Maple

filter:= proc(n) local L, j;
  L:= convert(n, base, 10);
  add(10^(j-1)*L[-j], j=1..nops(L)) mod 14 = 0
end proc:
select(filter, [seq(seq(seq(a*10^d+x, x=((-a*10^d) mod 14)..10^d-2, 14), a=2..8, 2), d=1..4)]); # Robert Israel, May 11 2018

Mathematica

Select[14*Range[700], Divisible[FromDigits[Reverse[IntegerDigits[ #]]], 14]&] (* Harvey P. Dale, Jul 25 2012 *)

Prog

(PARI) isok(n) = !(n % 14) && !(fromdigits(Vecrev(digits(n))) % 14); \\ Michel Marcus, May 12 2018

Crossrefs

Cf. A062903, A062905, A062906, A062907.

Sequence in context: A207373 A072443 A129623 * A032800 A024749 A024757

Adjacent sequences: A062901 A062902 A062903 * A062905 A062906 A062907

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jul 01 2001

Extensions

More terms from Erich Friedman, Jul 02 2001

Status

approved