A062907 Numbers k such that k and its reversal are both multiples of 19.

0, 171, 323, 494, 646, 969, 1710, 1881, 2166, 2318, 2489, 3230, 3553, 3705, 3876, 4940, 5073, 5225, 5396, 5548, 6460, 6612, 6783, 6935, 7068, 8132, 8455, 8607, 8778, 9690, 9842, 11134, 11457, 11609, 12521, 12692, 12844, 13129, 14041, 14364, 14516

Offset

1,2

Links

Harry J. Smith, Table of n, a(n) for n = 1..1000

Example

2318 and 8132 are both multiples of 19.

Mathematica

Select[Range[0, 15000, 19], Mod[IntegerReverse[#], 19]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 24 2021 *)

Prog

(ARIBAS): n := 19; stop := 15000; m := 0; while m < stop do rev := int_reverse(m); if rev mod n = 0 then write(m, " "); end; inc(m, n); end;
(PARI) { n=0; forstep (m=0, 10^9, 19, x=m; r=0; while (x>0, d=x-10*(x\10); x\=10; r=r*10 + d); if (r%19 == 0, write("b062907.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 12 2009

Crossrefs

Sequence in context: A120819 A115078 A183996 * A266315 A116459 A185610

Adjacent sequences: A062904 A062905 A062906 * A062908 A062909 A062910

Keyword

nonn,base,easy

Author

Amarnath Murthy, Jul 01 2001

Extensions

Corrected and extended by Dean Hickerson, Jul 06 2001

Status

approved