OFFSET
1,2
EXAMPLE
1, 111=3*37 and 858=2*3*11*13 are palindromic and products of an even number of distinct primes.
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 7000 do if test(n) then a := [op(a), n]; end; od; a;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jani Melik, Oct 13 2002
EXTENSIONS
Edited by Dean Hickerson, Oct 21 2002
STATUS
approved