A062915 - OEIS

%I #12 Dec 20 2024 19:36:08

%S 1156,1207,1479,2720,3230,3604,3876,3927,4063,4386,4437,5950,6460,

%T 6511,6783,6834,7021,7293,7344,7718,8177,9690,9741,10047,11560,11883,

%U 11934,12070,12393,12444,12767,12818,13005,13277,13328,14790,15402,15674

%N Non-palindromic number and its reversal are both multiples of 17.

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

%e 1479 and 9741 are both multiples of 17.

%t Select[Range[16000],!PalindromeQ[#]&&Divisible[#,17]&&Divisible[ IntegerReverse[ #],17]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 04 2017 *)

%t Select[Range[0,16000,17],!PalindromeQ[#]&&Mod[IntegerReverse[#],17]==0&] (* _Harvey P. Dale_, Dec 20 2024 *)

%K nonn,base,easy

%O 1,1

%A _Amarnath Murthy_, Jul 01 2001

%E More terms from _Erich Friedman_, Jul 02 2001