A075804 Differences between adjacent palindromic nonsquarefree numbers A035132.
4, 1, 35, 44, 11, 22, 50, 41, 20, 10, 10, 20, 20, 41, 10, 20, 41, 10, 10, 20, 20, 20, 41, 50, 10, 31, 20, 20, 10, 10, 10, 10, 51, 61, 20, 20, 20, 20, 21, 90, 332, 550, 231, 220, 220, 110, 110, 220, 671, 110, 220, 11, 110, 110, 220, 110, 110, 220, 341, 220, 330, 341
Offset: 1
Examples
a(1) = 8 - 4 = 4, a(2) = 9 - 8 = 1, a(3) = 44 - 9 = 35.
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 7000 do if test(n) then s := [op(s),n]; end; od; a := [op(2..-1,s)-op(1..-2,s)];
-
Mathematica
Differences[Select[Range[10000],PalindromeQ[#]&&!SquareFreeQ[#]&]] (* Harvey P. Dale, Dec 28 2024 *)
Extensions
Edited by Dean Hickerson, Oct 21 2002