cp's OEIS Frontend

A050702 Nonprime numbers n such that n and n-reversed (<>n and no leading zeros) have the same number of prime factors and these prime factors (palindromes allowed here) are also reversals of each other.

%I A050702 #28 Mar 03 2023 20:27:13
%S A050702 26,39,62,93,143,169,187,226,286,339,341,622,682,781,933,961,1089,
%T A050702 1177,1243,1313,1469,1573,1717,2042,2062,2066,2178,2206,2402,2426,
%U A050702 2446,2462,2486,2602,2626,2642,3063,3093,3099,3131,3309,3421,3603,3639,3669,3693,3737,3751,3903,3939,3963,4084
%N A050702 Nonprime numbers n such that n and n-reversed (<>n and no leading zeros) have the same number of prime factors and these prime factors (palindromes allowed here) are also reversals of each other.
%C A050702 Prime factors counted without multiplicity. - _Harvey P. Dale_, Nov 29 2014
%H A050702 Vincenzo Librandi, <a href="/A050702/b050702.txt">Table of n, a(n) for n = 1..1000</a> (corrected by Sean A. Irvine)
%e A050702 Reversing 339 = 3*113 gives 933 = 3*311, both with two prime factors.
%t A050702 d[n_]:=IntegerDigits[n]; f[n_]:=First/@FactorInteger[n]; Select[Range[4100],!PrimeQ[#]&&Reverse/@d[f[#]]==d[f[x=FromDigits[Reverse[d[#]]]]]&&#!=x&](* _Jayanta Basu_, May 31 2013 *)
%t A050702 snpfQ[n_]:=Module[{pfn=Transpose[FactorInteger[n]][[1]],idn = IntegerDigits[ n], revn, pfrev, revpfrev},revn = FromDigits[ Reverse[idn]];pfrev=Transpose[ FactorInteger[ revn]][[1]]; revpfrev =FromDigits[Reverse[IntegerDigits[#]]]&/@pfrev;!PrimeQ[n]&& Last[ IntegerDigits[ n]] != 0&&revn!=n&&Length[pfn]==Length[pfrev]&&Union[pfn] == Union[ revpfrev]]; Select[ Range[ 4200], snpfQ] (* _Harvey P. Dale_, Nov 29 2014 *)
%Y A050702 Cf. A050699.
%K A050702 nonn,base,nice
%O A050702 1,1
%A A050702 _Patrick De Geest_, Aug 15 1999
%E A050702 More terms from _Naohiro Nomoto_, Apr 03 2001
%E A050702 Corrected by _Vincenzo Librandi_, Feb 03 2014
%E A050702 Definition clarified by _Harvey P. Dale_, Nov 29 2014