OFFSET
1,2
EXAMPLE
16 = 2^4 and its reversal in base 10, 61, is prime, so 16 and 61 belong to this sequence.
MATHEMATICA
Select[Range[800], AllTrue[{#, IntegerReverse[#]}, PrimeNu[#1] < 2 &] &] (* Amiram Eldar, Feb 15 2022 *)
PROG
(PARI) is(n) = omega(n)<=1 && omega(fromdigits(Vecrev(digits(n))))<=1
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Rémy Sigrist, Feb 13 2022
STATUS
approved