OFFSET
1,1
EXAMPLE
22=2*11 and 858=2*3*11*13 are palindromic, even, squarefree and have an even number of prime factors.
MAPLE
test := proc(n) local d; d := convert(n, base, 10); return ListTools[Reverse](d)=d and numtheory[mobius](n)=1; end; a := []; for n from 2 to 44000 by 2 do if test(n) then a := [op(a), n]; end; od; a;
MATHEMATICA
Select[Range[2, 44000, 2], MoebiusMu[ # ]==1&&IntegerDigits[ # ]==Reverse[IntegerDigits[ # ]]&]
Select[Range[2, 44000, 2], SquareFreeQ[#]&&EvenQ[PrimeNu[#]]&& # == IntegerReverse[ #]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Mar 31 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved