OFFSET
1,1
EXAMPLE
4=2^2, 6=2*3 and 22=2*11 are palindromic, even and have exactly 2 prime factors.
MAPLE
test := proc(n) local d; d := convert(n, base, 10); return ListTools[Reverse](d)=d and numtheory[bigomega](n)=2; end; a := []; for n from 2 to 50000 by 2 do if test(n) then a := [op(a), n]; end; od; a;
MATHEMATICA
Select[Range[50000], EvenQ[#]&&PalindromeQ[#]&&PrimeOmega[#]==2&] (* Harvey P. Dale, Oct 16 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved