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

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A062903 A062904 A062905 * A062907 A062908 A062909

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