A075811 - OEIS

%I #9 Mar 31 2016 11:47:50

%S 6,22,202,262,454,626,818,838,858,878,898,2002,2442,4774,6666,20302,

%T 20602,22322,22422,22522,22622,22722,22822,24142,24242,24842,26562,

%U 26662,26762,26962,28482,28682,41014,41314,41414,41614,41714,43034

%N Palindromic even squarefree numbers with an even number of distinct prime factors.

%e 22=2*11 and 858=2*3*11*13 are palindromic, even, squarefree and have an even number of prime factors.

%p 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;

%t Select[Range[2, 44000, 2], MoebiusMu[ # ]==1&&IntegerDigits[ # ]==Reverse[IntegerDigits[ # ]]&]

%t 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 *)

%K nonn,base

%O 1,1

%A _Jani Melik_, Oct 13 2002

%E Edited by _Dean Hickerson_, Oct 21 2002