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