The OEIS is supported by the many generous donors to the OEIS Foundation.

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.

4

`%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
`