|
%I #15 Jan 24 2021 13:42:44
%S 0,171,323,494,646,969,1710,1881,2166,2318,2489,3230,3553,3705,3876,
%T 4940,5073,5225,5396,5548,6460,6612,6783,6935,7068,8132,8455,8607,
%U 8778,9690,9842,11134,11457,11609,12521,12692,12844,13129,14041,14364,14516
%N Numbers k such that k and its reversal are both multiples of 19.
%H Harry J. Smith, <a href="/A062907/b062907.txt">Table of n, a(n) for n = 1..1000</a>
%e 2318 and 8132 are both multiples of 19.
%t Select[Range[0,15000,19],Mod[IntegerReverse[#],19]==0&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 24 2021 *)
%o (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;
%o (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
%K nonn,base,easy
%O 1,2
%A _Amarnath Murthy_, Jul 01 2001
%E Corrected and extended by _Dean Hickerson_, Jul 06 2001
|
