cp's OEIS Frontend

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

%I A062904 #13 May 13 2018 06:39:19
%S A062904 252,434,616,686,868,2002,2072,2254,2436,2520,2590,2618,2688,2702,
%T A062904 2772,2954,4004,4074,4256,4340,4438,4522,4592,4704,4774,4956,6006,
%U A062904 6076,6160,6258,6342,6524,6594,6706,6776,6860,6958,8008,8078,8162,8344,8526,8596
%N A062904 Numbers n such that n and its reversal are both multiples of 14.
%H A062904 Robert Israel, <a href="/A062904/b062904.txt">Table of n, a(n) for n = 1..10000</a>
%e A062904 2254 and 4522 are both multiples of 14.
%p A062904 filter:= proc(n) local L,j;
%p A062904   L:= convert(n,base,10);
%p A062904   add(10^(j-1)*L[-j],j=1..nops(L)) mod 14 = 0
%p A062904 end proc:
%p A062904 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
%t A062904 Select[14*Range[700],Divisible[FromDigits[Reverse[IntegerDigits[ #]]],14]&] (* _Harvey P. Dale_, Jul 25 2012 *)
%o A062904 (PARI) isok(n) = !(n % 14) && !(fromdigits(Vecrev(digits(n))) % 14); \\ _Michel Marcus_, May 12 2018
%Y A062904 Cf. A062903, A062905, A062906, A062907.
%K A062904 nonn,base,easy
%O A062904 1,1
%A A062904 _Amarnath Murthy_, Jul 01 2001
%E A062904 More terms from _Erich Friedman_, Jul 02 2001