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
Examples
2254 and 4522 are both multiples of 14.
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
-
PARI
isok(n) = !(n % 14) && !(fromdigits(Vecrev(digits(n))) % 14); \\ Michel Marcus, May 12 2018
Extensions
More terms from Erich Friedman, Jul 02 2001
Comments