A075803 Differences between adjacent palindromic squarefree numbers.
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, 10, 30, 20, 10, 10, 41, 20, 20, 20, 11, 10, 20, 10, 10, 10, 30, 11, 20, 20, 61, 10, 10, 10, 20, 10, 10, 10, 10, 21, 20, 20, 20, 20, 21, 10, 10, 10, 10, 10, 10, 10, 12, 110, 110, 220
Offset: 1
Examples
a(1)=2-1=1, a(3)=5-3=2, a(6)=11-7=4.
Programs
-
Maple
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)];
Extensions
Edited by Dean Hickerson, Oct 21 2002