|
%I #17 Dec 30 2020 04:11:56
%S 13,15,17,26,31,37,39,51,58,62,71,73,79,85,93,97,107,113,115,117,122,
%T 123,129,143,149,155,157,158,159,165,167,169,177,178,179,183,185,187,
%U 199,203,205,221,226,246,265,285,286,294,302,311,314,319,321,326,327
%N Nonpalindromic numbers that have the same prime signature as their digit reversal.
%H Amiram Eldar, <a href="/A068893/b068893.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Pri#prime_signature">Index entries for sequences related to prime signature</a>
%e 15 is a term since 15 = 3*5 and 51 = 3*17, and both are of the form p*q where p and q are primes.
%t sig[n_] := Sort @ FactorInteger[n][[;;,2]]; Select[Range[300], !PalindromeQ[#] && sig[#] == sig[IntegerReverse[#]] &] (* _Amiram Eldar_, Dec 30 2020 *)
%Y Subsequence of A085869.
%Y Cf. A004086, A118914.
%K base,easy,nonn
%O 1,1
%A _Amarnath Murthy_, Mar 20 2002
%E More terms from _David Wasserman_, Apr 19 2005
%E Offset corrected by _Amiram Eldar_, Dec 30 2020
|
