OFFSET
1,1
COMMENTS
Ray Chandler has coauthorship credit for this sequence.
LINKS
Michael S. Branicky, Table of n, a(n) for n = 1..10001
Eric Weisstein's World of Mathematics, Almost Prime.
Eric Weisstein's World of Mathematics, Emirp.
Eric Weisstein's World of Mathematics, Emirpimes.
MATHEMATICA
Select[Range@1000, ! PalindromeQ@# && Differences@PrimeOmega@{#, IntegerReverse@#} == {0} &] (* Hans Rudolf Widmer, Jun 03 2022 *)
PROG
(Python)
from sympy import factorint
def Omega(n): return sum(factorint(n).values())
def ok(n): return n != (r:=int(str(n)[::-1])) and Omega(n) == Omega(r)
print([k for k in range(300) if ok(k)]) # Michael S. Branicky, Mar 05 2026
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jonathan Vos Post, Jun 16 2005
EXTENSIONS
More terms from Stefan Steinerberger, Jun 16 2007
STATUS
approved
