login
A062906
Numbers n such that n and its reversal are both multiples of 17.
3
272, 323, 595, 646, 969, 1156, 1207, 1479, 2720, 2992, 3230, 3553, 3604, 3876, 3927, 4063, 4114, 4386, 4437, 5950, 6460, 6511, 6783, 6834, 7021, 7293, 7344, 7667, 7718, 8177, 8228, 9690, 9741, 10047, 11560, 11611, 11883, 11934, 12070, 12121, 12393
OFFSET
1,1
LINKS
EXAMPLE
1156 and 6511 are both multiples of 17.
MATHEMATICA
Select[ Range[ 30000 ], Mod[ #, 17 ] == 0 && Mod[ FromDigits[ Reverse[ IntegerDigits[ # ] ] ], 17 ] == 0 & ]
Select[Range[13000], And@@Divisible[{#, IntegerReverse[#]}, 17]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 09 2021 *)
PROG
(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;
CROSSREFS
Sequence in context: A112820 A304892 A316574 * A253361 A133514 A235293
KEYWORD
nonn,base,easy
AUTHOR
Amarnath Murthy, Jul 01 2001
EXTENSIONS
Corrected and extended by Dean Hickerson and Reiner Martin, Jul 06, 2001
STATUS
approved