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,2

Links

Oren Meisner, Table of n, a(n) for n = 1..10000

Example

1495 and 5941 are both multiples of 13.

Mathematica

Select[13*Range[0, 700], Divisible[FromDigits[Reverse[IntegerDigits[ #]]], 13]&] (* Harvey P. Dale, Nov 30 2014 *)

Prog

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

Crossrefs

Subsequence of A008595.

Sequence in context: A363391 A264327 A045007 * A363050 A347891 A059828

Adjacent sequences: A062900 A062901 A062902 * A062904 A062905 A062906

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jul 01 2001

Extensions

Corrected and extended by Dean Hickerson, Jul 06 2001

Zero added by Zak Seidov, May 31 2010

Status

approved