OFFSET
1,2
EXAMPLE
77=7*11 and 3003=3*7*11*13 are palindromic, odd, 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 1 to 11000 by 2 do if test(n) then a := [op(a), n]; end; od; a;
MATHEMATICA
psdQ[n_]:=Module[{idn=IntegerDigits[n]}, idn==Reverse[idn]&&SquareFreeQ[n] && EvenQ[PrimeNu[n]]]; Select[Range[1, 11001, 2], psdQ] (* Harvey P. Dale, Aug 21 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved