A075803 - OEIS

%I #5 Jun 24 2014 01:08:26

%S 1,1,2,1,1,4,11,11,22,11,11,24,10,20,10,10,10,20,10,11,20,40,20,21,10,

%T 10,30,20,10,10,41,20,20,20,11,10,20,10,10,10,30,11,20,20,61,10,10,10,

%U 20,10,10,10,10,21,20,20,20,20,21,10,10,10,10,10,10,10,12,110,110,220

%N Differences between adjacent palindromic squarefree numbers.

%e a(1)=2-1=1, a(3)=5-3=2, a(6)=11-7=4.

%p test := proc(n) local d; d := convert(n,base,10); return ListTools[Reverse](d)=d and numtheory[mobius](n)<>0; end; s := []; for n from 1 to 1500 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,3

%A _Jani Melik_, Oct 13 2002

%E Edited by _Dean Hickerson_, Oct 21 2002