|
%I #7 Aug 09 2015 14:28:36
%S 4,1,35,44,11,22,50,41,20,10,10,20,20,41,10,20,41,10,10,20,20,20,41,
%T 50,10,31,20,20,10,10,10,10,51,61,20,20,20,20,21,90,332,550,231,220,
%U 220,110,110,220,671,110,220,11,110,110,220,110,110,220,341,220,330,341
%N Differences between adjacent palindromic nonsquarefree numbers A035132.
%e a(1) = 8 - 4 = 4, a(2) = 9 - 8 = 1, a(3) = 44 - 9 = 35.
%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 7000 do if test(n) then s := [op(s),n]; end; od; a := [op(2..-1,s)-op(1..-2,s)];
%Y Cf. A037010, A035132.
%K nonn,base
%O 1,1
%A _Jani Melik_, Oct 13 2002
%E Edited by _Dean Hickerson_, Oct 21 2002
|
