%I #11 Oct 30 2022 18:19:59

%S 272,323,595,646,969,1156,1207,1479,2720,2992,3230,3553,3604,3876,

%T 3927,4063,4114,4386,4437,5950,6460,6511,6783,6834,7021,7293,7344,

%U 7667,7718,8177,8228,9690,9741,10047,11560,11611,11883,11934,12070,12121,12393

%N Numbers n such that n and its reversal are both multiples of 17.

%H Harvey P. Dale, <a href="/A062906/b062906.txt">Table of n, a(n) for n = 1..1000</a>

%e 1156 and 6511 are both multiples of 17.

%t Select[ Range[ 30000 ], Mod[ #, 17 ] == 0 && Mod[ FromDigits[ Reverse[ IntegerDigits[ # ] ] ], 17 ] == 0 & ]

%t Select[Range[13000],And@@Divisible[{#,IntegerReverse[#]},17]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 09 2021 *)

%o (ARIBAS): n := 17; stop := 12500; m := 0; while m < stop do rev := int_reverse(m); if rev mod n = 0 then write(m," "); end; inc(m,n); end;

%K nonn,base,easy

%O 1,1

%A _Amarnath Murthy_, Jul 01 2001

%E Corrected and extended by _Dean Hickerson_ and _Reiner Martin_, Jul 06, 2001