|
%I #21 Aug 20 2018 01:44:46
%S 0,494,585,676,767,858,949,1001,1495,1586,1677,1768,1859,2002,2496,
%T 2587,2678,2769,3003,3497,3588,3679,4004,4498,4589,4940,5005,5499,
%U 5850,5941,6006,6760,6851,6942,7007,7670,7761,7852,7943,8008,8580,8671
%N Numbers n such that n and its reversal are both multiples of 13.
%H Oren Meisner, <a href="/A062903/b062903.txt">Table of n, a(n) for n = 1..10000</a>
%e 1495 and 5941 are both multiples of 13.
%t Select[13*Range[0,700],Divisible[FromDigits[Reverse[IntegerDigits[ #]]],13]&] (* _Harvey P. Dale_, Nov 30 2014 *)
%o (PARI) isok(n) = !(n % 13) && !(fromdigits(Vecrev(digits(n))) % 13); \\ _Michel Marcus_, Aug 14 2018
%Y Subsequence of A008595.
%K nonn,base,easy
%O 1,2
%A _Amarnath Murthy_, Jul 01 2001
%E Corrected and extended by _Dean Hickerson_, Jul 06 2001
%E Zero added by _Zak Seidov_, May 31 2010
|
