OFFSET
1,1
COMMENTS
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Almost Prime.
Eric Weisstein's World of Mathematics, Emirp.
Eric Weisstein and Jonathan Vos Post, Emirpimes.
EXAMPLE
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.
MATHEMATICA
Select[Range[45000], !PalindromeQ[#]&&PrimeOmega[#]==PrimeOmega[ IntegerReverse[ #]] ==7&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 02 2019 *)
PROG
(PARI) is(n) = {
my(r = fromdigits(Vecrev(digits(n))));
n!=r && bigomega(n) == 7 && bigomega(r) == 7
} \\ David A. Corneth, Mar 07 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jonathan Vos Post, Jun 16 2005
STATUS
approved