|
%I #23 Mar 08 2024 21:25:23
%S 8820,21240,21708,21780,21920,23280,23472,23625,23800,25560,25584,
%T 25758,26280,27432,27504,27888,27900,28836,29250,29403,29736,29970,
%U 30492,34884,36828,40338,40572,40950,41976,42228,42984,43659,43956,44128
%N Numbers that have exactly seven prime factors counted with multiplicity (A046308) whose digit reversal is different and also has 7 prime factors (with multiplicity).
%C This sequence is the k = 7 instance of the series which begins with k = 1 (emirps), k = 2, k = 3, k = 4, k = 5 (A109025), k = 6 (A109026).
%H David A. Corneth, <a href="/A109027/b109027.txt">Table of n, a(n) for n = 1..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/AlmostPrime.html">Almost Prime</a>.
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Emirp.html">Emirp</a>.
%H Eric Weisstein and Jonathan Vos Post, <a href="http://mathworld.wolfram.com/Emirpimes.html">Emirpimes</a>.
%e a(20) = 29403 is in this sequence because 29403 = 3^5 * 11^2 has exactly 7 prime factors counted with multiplicity and reverse(29403) = 30492 = 2^2 * 3^2 * 7 * 11^2 also has exactly 7 prime factors counted with multiplicity.
%t Select[Range[45000],!PalindromeQ[#]&&PrimeOmega[#]==PrimeOmega[ IntegerReverse[ #]] ==7&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 02 2019 *)
%o (PARI) is(n) = {
%o my(r = fromdigits(Vecrev(digits(n))));
%o n!=r && bigomega(n) == 7 && bigomega(r) == 7
%o } \\ _David A. Corneth_, Mar 07 2024
%Y Cf. A046308, A006567, A097393, A109018, A109023, A109024, A109025, A109026, A109028, A109029, A109030, A109031.
%K nonn,base
%O 1,1
%A _Jonathan Vos Post_, Jun 16 2005
|
