login
Palindromes such that at least one divisor is non-palindromic; palindromes not in A062687.
3

%I #12 Dec 15 2017 17:36:21

%S 111,141,161,171,212,222,232,252,272,282,292,323,333,343,414,424,434,

%T 444,454,464,474,494,515,525,535,545,555,565,575,585,595,616,636,646,

%U 656,666,676,686,696,717,737,747,767,777,818,828,838,848,858,868,878

%N Palindromes such that at least one divisor is non-palindromic; palindromes not in A062687.

%H Indranil Ghosh, <a href="/A084325/b084325.txt">Table of n, a(n) for n = 1..10000</a>

%e 141 is in the sequence because the divisors of 141 are 1, 3, 47 and 141, from which 47 is the only non-palindromic number. - _Indranil Ghosh_, Feb 10 2017

%t palQ[n_] := Reverse[x = IntegerDigits[n]] == x; Select[Range[880], palQ[#] && And @@ palQ /@ Divisors[#] == False &] (* _Jayanta Basu_, Aug 10 2013 *)

%K base,easy,nonn

%O 1,1

%A _Jason Earls_, Jun 21 2003