A062903 Numbers n such that n and its reversal are both multiples of 13.
0, 494, 585, 676, 767, 858, 949, 1001, 1495, 1586, 1677, 1768, 1859, 2002, 2496, 2587, 2678, 2769, 3003, 3497, 3588, 3679, 4004, 4498, 4589, 4940, 5005, 5499, 5850, 5941, 6006, 6760, 6851, 6942, 7007, 7670, 7761, 7852, 7943, 8008, 8580, 8671
Offset: 1
Examples
1495 and 5941 are both multiples of 13.
Links
- Oren Meisner, Table of n, a(n) for n = 1..10000
Crossrefs
Subsequence of A008595.
Programs
-
Mathematica
Select[13*Range[0,700],Divisible[FromDigits[Reverse[IntegerDigits[ #]]],13]&] (* Harvey P. Dale, Nov 30 2014 *)
-
PARI
isok(n) = !(n % 13) && !(fromdigits(Vecrev(digits(n))) % 13); \\ Michel Marcus, Aug 14 2018
Extensions
Corrected and extended by Dean Hickerson, Jul 06 2001
Zero added by Zak Seidov, May 31 2010