%I #5 Jun 24 2014 01:08:26
%S 5,16,11,22,22,34,30,20,41,60,41,20,70,61,51,10,20,10,20,61,81,10,20,
%T 30,51,20,20,20,20,41,10,10,20,10,122,330,220,330,11,440,561,110,110,
%U 220,440,891,231,110,1551,451,330,550,1122,110,220,552,100,300,400,100
%N Differences between adjacent palindromic numbers which are products of an even number of distinct primes.
%e a(1)=6-1=5, a(2)=22-6=16.
%p test := proc(n) local d; d := convert(n,base,10); return ListTools[Reverse](d)=d and numtheory[mobius](n)=1; end; s := []; for n from 1 to 11000 do if test(n) then s := [op(s),n]; end; od; a := [op(2..-1,s)-op(1..-2,s)];
%Y Cf. A037010.
%K nonn,base
%O 1,1
%A _Jani Melik_, Oct 13 2002
%E Edited by _Dean Hickerson_, Oct 21 2002
|