A075407 - OEIS

%I #16 Aug 27 2018 16:51:22

%S 302,322,342,362,382,423,453,483,504,513,543,544,573,584,655,706,746,

%T 755,766,805,905,908,917,948,955,988,1029,1030,1050,1057,1059,1070,

%U 1090,1119,1127,1130,1149,1150,1170,1190,1267,1312,1313,1337,1352,1434

%N Non-palindromic numbers such that the largest proper divisor is a palindrome having at least two digits and no other divisor is a palindrome with at least two digits.

%H Giovanni Resta, <a href="/A075407/b075407.txt">Table of n, a(n) for n = 1..10000</a> (terms < 10^6 from David Consiglio, Jr.)

%e 322 is here since the divisors of 322 are [1, 2, 7, 14, 23, 46, *161*, 322].

%t palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse@d]; ok[n_] := Block[{d = Divisors[n]}, Length[d] > 1 && d[[-2]] > 9 && palQ[d[[-2]]] && Length[ Select[d, # > 9 && palQ[#] &, 2]] == 1]; Select[ Range[2000], ok] (* _Giovanni Resta_, Aug 27 2018 *)

%Y Cf. A074888.

%K base,nonn

%O 1,1

%A _Jason Earls_, Sep 13 2002

%E Edited by _Matthew Conroy_, Oct 21 2002

%E More terms from _David Consiglio, Jr._, Oct 12 2015

%E Incorrect Python program deleted by _Giovanni Resta_, Aug 27 2018