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

Author

Amarnath Murthy, Jul 01 2001

Keywords

• nonn
• base
• easy

Examples

			2318 and 8132 are both multiples of 19.
		

Links

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

Programs

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;

Mathematica

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

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

Extensions

Corrected and extended by Dean Hickerson, Jul 06 2001